use Bio::SeqIO;
use strict;

my $seqio= '';
my $seqobj= '';
my $seq_stats= '';
my %hash=();
my $seq='';

my $seqio = Bio::SeqIO ->new(-file=> "GenBank_Records.txt",
                            -format => 'genbank');
print "Enter Acc number";
$acc=<STDIN>;
chomp $acc;

$hash{$seq->accession_number}= $seq->seq;
print $hash{$acc};
        exit;