Select Code to Download

use strict;
use warnings;

use strict;
use warnings;
...
        }
use Data::Dumper;
print Dumper(\%qual_hash);

use strict;
use warnings;
...
use Bio::SeqIO;
my $file = "Qual.txt";
my $qual_obj = Bio::SeqIO->new(-file =>"<$file",-format=>'qual',);

#THIS DOESN'T READ THE FILE RIGHT..

...

use Data::Dumper;
print Dumper(\%seq_hash);