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