Help for this page
$ perl -Mstrict -wle ' > my %x; sub main () { \%x }; > main->{x} = 1; > print $x{x}' 1