my $HoA_ref = {'GAT' => [2, ['ttt',-3,1],['ttc',-3,3],['ccc',-1,2]],
               'AAA' => [13,['aaa',-1,2],['atg',-2,2]], 
               'TTT' => [11,['tta',-2,1],['atc',-3,3]]
               };

# Need to print 'AAA' slice only coz have'13' as highest value