foreach my $key ( keys %hash ) { #print "$key: @{ $hash{$key} }\n" print "$key: \n"; foreach (@{$hash{$key}}) { print $_ , "\n"; } }