$ perl -e'{ my($x,$y); sub foo { ($x,$y)=@_;$x.$y} sub bar{print "bar",$x,$y,$/} } bar(); foo qw(baz quux); bar(); foo qw(oof zab); bar()'
bar
barbazquux
baroofzab
$