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