my $mysort = sub {
        return $a <=> $b;
};

print sort $mysort (1, 2, 3, 2, 1);