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