my @ID;
foreach my $line(@col_NM) {
	if ($line =~ m/(NM\_\d+)/) {
	push (@ID, $1); 		
	}	
}