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

##</code><code>##

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