sub which
{ 
   if(wantarray)
   {
       print "list\n"; ();
   }
   else
   {
      "scalar\n"; 0;
   }
}

my $a = which();
my ($b) = which();