Select Code to Download

@tocheck : Apple Corn Pie Fish
%checkfrom:
Meat => Fish Apple Pork Bacon
Fruit => Apple Pie Orange Beef

Meat=> Pork Bacon
Fruit => Orange Beef

foreach $checking(@tocheck){
for (keys %checkfrom){
if ($checkfrom{$_} eq $checking){
  #does  
}

Activpospf.txt
PF01486
PF00319
...
PF00319 : C15234
PF12345 : C00001 C12345
PF98765 : C00000

#!/usr/bin/perl
...
        my @splitter =split(/ /, $seedin{$pfam});
        push (@tocheck, @splitter);
        delete $seedin{$pfam};}}

PF12345 : C00001
PF98765 : C00000