Select Code to Download

my $HoA_ref = {'GAT' => [2, ['ttt',-3,1],['ttc',-3,3],['ccc',-1,2]],
...
               };

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

AAA 13:
aaa,-1,2
atg,-2,2

#namely how can I pick only the topmost with this subroutine
#besides some reference error that I encounter.
...
    }
}