foreach my $key (keys %hash) {
   print "$key =>\n"
   foreach my $thing (@{$hash{$key}})
      print "\t$thing\n";
   }
}