Select Code to Download

use strict;    # or DIE : )
use warnings;  # or SUFFER : )
...
# then you can use the reference like you would the hash by DEreferenc
+ing it

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

#!/usr/bin/perl -w # -w does same as use warnings above, but for older
+ perls
use strict;
...

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