>perl -wMstrict -le
"our $max_x = 99;
 ;;
 for my $max_x (0 .. 4) {
   func();
   print $max_x;
   last if $max_x == 2;
   }
 ;;
 print qq{max_x after loop: $max_x};
 ;;
 sub func {
   $max_x = 42;
   }
"
0
1
2
max_x after loop: 42