perl -e 'my @var = (1,2,3,4); sub baz {}; @var = baz(); print "po", join(",",@var),"of!\n";'

perl -e 'sub foo{return ()}; my %hash = (1 => 2, 3 => 4); %hash = foo(); while (my ($k, $v)=each %hash){print "$k,$v\n"};'