foreach (0, 1) {
    my $i = $_;
    sub my_print {
        my $i = shift;
        print $i;
    }

    my_print( $i);
}