Select Code to Download

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

foreach (@array) {
    print @array;
}

foreach (@array) {
    print $_;
}

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