Select Code to Download

 #!/usr/bin/perl  
use strict;  
...
    }  
    return %new_hash;  
}

substrate: 1 2
product: 3
...
product: 9
substrate: 11
product: 12

substrate[s]: 3649
product[s]: 3419 3648
...
product[s]: 3182
substrate[s]: 3186
product[s]: 2809

substrate[s]: 3647
product[s]: 3419 3248
...
product[s]: 3182
substrate[s]: 3186
product[s]: 2809