sub how {
  my $how = wantarray;
  if (defined $how) {
    if ($how) {
      print "list\n";
    } else {
      print "scalar\n";
    }
  } else {
    print "void\n";
  }
}

how;
my $s = how;
my @a = how;