Help for this page

Select Code to Download

Select or download this

use strict;    # or DIE : )
use warnings;  # or SUFFER : )
...

print "$reference->{one}";
# prints this

Select or download this

push @kung, \%item;
print "Kungfoo is ->", $kung[0]{foo}, "<-\n";