Select Code to Download

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

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

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

24310
23401