Select Code to Download

# Doesn't work
sort \&numeric @list;
...
# Works
my $sorter = \&numeric; 
sort $sorter @list;

sub sort_hashkey($$) {
    my ($a,$b) = @_;
...
}

my @sorted = sort_hashkey @list;

my $sorter = sorthash_numeric('foo');
my @sorted = sort $sorter @list;

my @sorted = sort sorthash_alpha('foo') @list;