None of the code above works actually.

The code I gave you in my first response works fine for me:

t$ perl -le 'my @o=([3, 1, 2]);print "@{$o[0]}";my @s=sort {$b <=> $a}
+ @{$o[0]};print"@s";'
3 1 2
3 2 1
[download]