foreach my $group (keys %np_matches) { print "blah $group:\n"; foreach (@{$np_matches{$group}}) { print "\t@{$_}\n"; } }