use strict;
my $i = 45;
my $x;
my $end = 30;
for $i (0..67) {
  # do some useful stuff
  last if $i == $end;
}
print $i."\n";