Select Code to Download

$ perl -E'sub f { $_[0] = 'abc' }  f($x); say $x'
abc

$ perl -E'sub f { $_[1] = 'abc' }  $h{a}=undef; f(%h); say $h{a}'
abc