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

my %hash = ( one => 'this', two => 'that' );

my $ref = \%hash; # the \ tells perl to store a reference

# then you can use the reference like you would the hash by DEreferencing it

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

##</code><code>##

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

my (%item, @kung);

$item{foo} = "5";
$item{bar} = "7";

push @kung, \%item; # note the slash

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