Select Code to Download

use strict;
use warnings;
...
#            ''
#          ]
#        ];

my %HOA;
my $count = 0;
...
my @new_AOA = sort { $a->[1] <=> $b->[1] }values %HOA;
@new_AOA = map {$_->[0]} @new_AOA;
print Dumper \@new_AOA;