Select Code to Download

my @AoA = [split /[,\s]+/, $_] for @array;

@AoA = sort { $b->[1] <=> $a->[1] } @AoH;