qwurx [shmem] ~ > perl -le 'sub f{qw(foo bar baz)}$_=(f=>f);print'
baz
qwurx [shmem] ~ > perl -le 'sub f{qw(foo bar baz)}@_=(f=>f);print"@_"'
f foo bar baz