foreach my $key (keys %{$matches->{$pid}}) { ... }