my $var = 5;
foreach $var (1 .. 3) {
    print $var;
    print_var();
}
print $var;
sub print_var {print $var};