my $file = 'temp_hold.gb';

$retr_seq = Bio::SeqIO->new(
    -file   => $file,
    -format => 'genbank'
);

while ( my $record = $retr_seq->next_seq ) {


my $gorganism = "";
$gorganism = $record->species->species;


}