Select Code to Download

my $sorter = \&some_function;
sort $sorter (1,2,3);

sort \&some_function (1,2,3);

 
sort make_sorter() (1,2,3)

use strict;
use warnings;
...
    my ($a,$b) = @_;
    $a <=> $b;
}

use strict;
use warnings;
...
    my ($a,$b) = @_;
    $a <=> $b;
}