my $seq_io = Bio::SeqIO->new( -file => $file, format => 'genbank'); my $whole_genome = $seq_io->next_seq;