Select Code to Download

use strict;

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

print_zHoA($HoA_ref);