In your last chunk:

foreach my $group (keys %no_priv_matches) {
    print "New interconnects for $group are:\n";
    foreach (@{$no_priv_matches{$group}}) {
        print "\t@{$no_priv_matches{$group}}\n";
    }
}
[download]

That inner foreach is not doing anything usefull, that's like saying this:

foreach (@array) {
    print @array;
}
[download]

Do you really mean:

foreach (@array) {
    print $_;
}
[download]

If that's the case, then maybe this will work:

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

Hope this helps

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--