my $w = defined wantarray() ? wantarray()+0 : -1;
  my %v = ( -1 => 'void', 0 => 'scalar', 1 => 'array' );
  print $v{$w}, " context\n";