$a = 1;
$b = 2;
sub {
    my($b) = 3;
    print "a=$a\nb=$b\n";
}
->();