sub testc1 {
if(defined wantarray()) {
        print "scalar\n";
}
elsif(wantarray()) {
        print "array\n";
}
else {
        print "void context\n";
  }
}
testc1();
$a=testc1();
@a=testc1();

##</code><code>##

sub testc2 {
if(wantarray()) {
        print "array\n";
}
elsif(defined wantarray()) {
        print "scalar\n";
}
else {
        print "void context\n";
}
}
$x=testc2();
@x=testc2();
testc2();