#!/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";