use strict;

my $i = "whatever";

for ($i = 1; $i <= 10; $i++) {
  last if $i == 7;
}

print "$i\n"; # prints "7" instead