>perl -wMstrict -le
"my $max_x = 99;
 ;;
 for $max_x (0 .. 5) {
   print $max_x;
   last if $max_x == 2;
   }
 ;;
 print qq{max_x: $max_x};
"
0
1
2
max_x: 99