sub c{ return caller(); }

print c();;
main (eval 16) 1

print scalar c();;
main

##</code><code>##

print each %h;;
a 1

print scalar each %h;;
a