Help for this page

Select Code to Download

Select or download this
```
$key = some ID
$value = + or -
```

Select or download this

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