$a=1; $b=2; sub { my (0?$a:$b) = 3; print "a=$a\nb=$b\n" }->() [download]
In reply to my (0?$a:$b): a koan by educated_foo