our @x;
sub foo {
  print "wantarray? ", wantarray?1:0, "\n";
  push @x, (1,2,3);
  return @x;
}
pop foo();