note
sauoq
<blockquote><em>
None of the code above works actually.
</em></blockquote>
<p>The code I gave you in my first response works fine for me:
<code>
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
</code>
</p>
<div class="pmsig"><div class="pmsig-182681">
<tt>
-sauoq<br />
"My two cents aren't worth a dime.";<br />
</tt>
</div></div>
972131
972231