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