foreach $i (0..5){
   $i = 9;
   print "$i\n";
}