I think he wanted to sort them in descending order, not reverse them. It just happens that with the example data he gave, the two are the same.

So I'll just note that substituting sort { $b <=> $a} for the reverse in your example works, too.

Oh, and if he didn't want the original data affected:

my @sorted = map {[sort { $b <=> $a } @$_]} @unsorted;
[download]