use strict;

my $i = "whatever";

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

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