@sorted = sort { ($a->[$orderby] <=> $b->[$orderby]) || ($a->[$orderby] cmp $b->[$orderby]) } @unsorted;

#!/usr/bin/perl
use warnings;
use strict;

use Benchmark qw(:all);
use Data::Dumper;

my @array;
for my $i ( 0 .. 100_000 ) {
  push @array, [ map { int rand 100_000  } 1 .. 10  ]

}

my $orderby = 0;

cmpthese( 100, {
    'Completo' => sub {
        my @ordenado
            =
                sort {
                    ($a->[$orderby] <=> $b->[$orderby]) || ($a->[$orderby] cmp $b->[$orderby])
                }
                @array
            ;
#        print Dumper(\@ordenado[0..2]);
    },
    'Solo <=>' => sub {
        my @ordenado
            =
                sort {
                    $a->[$orderby] <=> $b->[$orderby]
                }
                @array
            ;
#        print Dumper(\@ordenado[0..2]);
    },
    'Indices'     => sub {
        my @indice = ( map { $array[$_][$orderby] } 0 .. $#array );
        my @ordenado
            = @array[
                sort {
                    ($indice[$a] <=> $indice[$b]) or ($indice[$a] cmp $indice[$b])
                } 0 .. $#array
              ]
            ;
#        print Dumper(\@ordenado[0..2]);
    },
    'Eval'     => sub {
        # Si el campo a ordenar es numérico, creamos el método de comp. numérico
        my $metodo = sub { $a->[$orderby] <=> $b->[$orderby] };
        my @ordenado = sort $metodo @array;
#        print Dumper(\@ordenado[0..2]);
    },
});

__END__