if ($frequence{'AAA'} > 1) {
 print ("erreur, frequence superieure a 1!");
}

if ($frequence{'AAA'} > 1) {
 print ("erreur, frequence superieure a 1!");
}else{
 print ("tout va bien");
}

1. while

   $i=100;
   while ($i > 0) {
     print $i, "\n";
     $i=$i-1;  # mieux: $i--
   }
   
   

2. for

   
   for ($i=0; $i < 100; $i++) {
     print $i, "\n";
   }
   
   

3. foreach

   @vertebres=('saumon', 'humain', 'chimp', 'tortue');
   foreach $f (@vertebres) {
     print $f, "\n";
   }
   
   

4. while..each

   Tres utile pour boucler sur les tableaux associatifs

   while( ( $codon , $freq ) = each %frequences ){
     print "$codon: $freq\n";
   }