gistfile1.txt

use strict;
use warnings;
use Benchmark qw/cmpthese/;

sub c1 { $_->[0] }

my @a = map {[rand]} (qw/1/x1000);

cmpthese(
    1000 => {
        simple => sub {
            map { $_->[1] }
            sort { $a->[0] <=> $b->[0] }
            map { [$_->[0], $_] }
            @a
        },
        "call code" => sub {
            map { $_->[1] }
            sort { $a->[0] <=> $b->[0] }
            map { [c1($_), $_] }
            @a
        },
    },
);


           Rate call code    simple
call code 207/s        --      -13%
simple    238/s       15%        --

gistfile2.txt