Select Code to Download

sub sortsub {
    $a cmp $b ||
    other_function( $a, $b ) ||
    ...
    }

sub sortsub {
    string_compare( $a, $b ) ||
    other_function( $a, $b ) ||
    ...
    }

sub sortsub {
    my @subs = @_;
...
        return $result if $result;
        }
    }

sub make_sort_sub {
    my @subs = @_;
...
            }
        };
    }

my $sort_sub = make_sort_sub( @sub_references );

my @sorted = sort { $sort_sub->() } @stuff;

#!/usr/bin/perl
# pre-defined common sort subroutines
...
    sort { $sort_sub->() } qw( Fred fred FReD Barney barney Betty BETT
+Y );
print "@sorted\n";
}