foreach my $pid (keys %$matches) { 
        foreach my $key (keys $$matches{$pid}) {
               print "$pid:$key:$$matches{$pid}{$key}\n";
        }
}