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";
	}
} 

##</code><code>##

foreach (@array) {
	print @array;
}

##</code><code>##

foreach (@array) {
	print $_;
}

##</code><code>##

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