reverse sort { my_cmp($a, $b) } @foo    # (1)

##</code><code>##

sort { my_cmp($b, $a) } @foo            # (2)

##</code><code>##

@u = map { [$_, $i++] } (0,0,3,2,2);
$" = '-';
print( (map {$_->[1]} reverse sort { $a->[0] <=> $b->[0] } @u),
       "\n",
       (map {$_->[1]} sort { $b->[0] <=> $a->[0] } @u),
       "\n" );


##</code><code>##

24310
23401