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