Select Code to Download

#!/usr/bin/perl

...
        $ref->[ $i ] cmp $ref->[ $i + 1 ] and do { ;;; };
    }
}

my @original = ( 5, 'A' .. 'C', 0, 4 );
my @sorted = sort sort_sub @original;
...

some_sub( $_ ) for \@original, \@sorted, \@r_sorted;
print '-';

some_sub( [ sort { $_ * sort_sub } @original ] ) for 0, 1, -1;
print '-';

5 A B C 0 4
0 4 5 A B C
...
0 4 5 A B C
C B A 5 4 0
-

my @reversed = reverse @original;

...
print '-';

some_sub( [ sort { $_ } @original ] ) for 0, 1;

5 A B C 0 4
4 0 C B A 5
-
5 A B C 0 4
4 0 C B A 5

srand 1;

...
    
    print '';
    }

===== length: 1 =====
$key:[$a <=> $b]
...
$key:[1]
 count:[59049]
 array:[9 0 4 4 5 5 0 5 1 0 ... 4 2 9 6 5 4 2 3 6 9]

tr/A-C/1-3/ for @original;

...
print '-';

some_sub( [ sort { $_ * ( $a + $b ) } @original ] ) for 0, 1;

5 1 2 3 0 4
4 0 3 2 1 5
-
5 1 2 3 0 4
4 0 3 2 1 5

original: 7 1 0 9 8 0 7 7 8 0
reversed: 0 8 7 7 0 8 9 0 1 7
$a + $b : 0 8 9 0 1 7 0 8 7 7