$hash{'somestring'}[0] = 13; $hash{'somestring'}[1] = 24; #### foreach my $k(keys %hash) { print "Key: $k\n"; for my $i(0..@{$hash{$k}}-1) { print " - ".$hash{$k}[$i]."\n"; } }