Help for this page

Select Code to Download

Select or download this

my %item;

...
foreach $val (keys %item) {
    print "$val => @{ $item{$val}}\n";
}