$qual_obj = Bio::SeqIO->new(-file => "/home/Alan/Desktop/sequence_data/$qual_file", -format => "qual");

my %qual_hash = ();

while($qual_hash = $qual_obj->_next_qual){
     $qual_hash{$qual_obj->id} = $qual_obj->seq;
}