use strict;
use warnings;

##</code><code>##

use strict;
use warnings;
use Bio::SeqIO::qual;
my $file = "Qual.txt";

my $qual_obj = Bio::SeqIO::qual->new(-file =>"<$file",-format=>'qual',);

my %qual_hash ;
while(my $qual = $qual_obj->_next_qual){
        $qual_hash{$qual->id}= $qual->qual();
        }
use Data::Dumper;
print Dumper(\%qual_hash);

##</code><code>##

use strict;
use warnings;

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

##</code><code>##

#THIS DOESN'T READ THE FILE RIGHT..

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

my %seq_hash = ();
while(my $seq= $qual_obj->next_seq){
        $seq_hash{$seq->id} = $seq->seq;
        }

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

##</code><code>##