Select Code to Download

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

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

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