Select Code to Download

for my $tmp ("a","b","c")
{
...
        print "$tmp, $_\n";
    }
}

for ("a","b","c")
{
...
        print "$__, $_\n";
    }   
}

sub test 
{
...
    my $val=$_[0];
    sub { print "$val, $_[0]\n" }
}

sub test2
{
...
    # fill in the BLANK with something that refers to
    # test2's $_[0], not the anonymous sub's
}