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