use strict;
use warnings;

sub foo {
  print "wantarray? ", wantarray?1:0, "\n";
  return wantarray? (1,2,3) : 's-s-sc-scalar';
}

my @x =('a','b', foo(), 'c');
print "\@x=(@x)\n";

##</code><code>##

wantarray? 1
@x=(a b 1 2 3 c)