sub foo { print "wantarray? ", wantarray?1:0, "\n"; }

my @x =(foo(),foo(), foo());
my $x =(foo(),foo(), foo());

##</code><code>##

wantarray? 1
wantarray? 1
wantarray? 1
wantarray? 0
wantarray? 0
wantarray? 0