Select Code to Download

while (<MYFILE>) #this is my opened file
{
...
       

     }

while (($key, $sequence)=each %species)
...
    print $key,$sequence; 
    print "\n";
    }