[me@host]$ perl -le 'sub x {print "yup" if wantarray} @y = map { x() } (1,2);'
yup
yup
[me@host]$ 
##</code><code>##

------------
:Wq
Not an editor command: Wq