my $var = 4;
for $var (1 .. 9) {
    last if $var == 7;
}
print $var;  # prints: 4