Help for this page

Select Code to Download

Select or download this

$/="\/\/";
our @acnumbers=qw(P0A252 Q9AT80 Q0HKB6);
...
    print @list;
    undef @list;
}

Select or download this

foreach (<DATABASE>){push (@uniprot,$_);}

my $i;
...
    
    undef @list;
}}