use strict;
use warnings;

my @sorted2 = sort get_numeric() (3,2,1);
print join(', ', @sorted2);

sub get_numeric {
    return \&numeric;
}

sub numeric($$) {
    my ($a,$b) = @_;
    $a <=> $b;
}