while($_ = <FILENAME>){

##</code><code>##

$accession{$seq} .= $_;

##</code><code>##

print "Please enter in the accession_ID: ";
chomp($accession_id = <STDIN>);

##</code><code>##

if ($accession{$g} =~ m/$accession_id/i){

##</code><code>##

if( $g =~ m/$accession_id/i){

##</code><code>##

if ($accession{$g} =~ m/$accession_id/i){