#!/usr/bin/perl

use strict;
use warnings;
use Benchmark qw(:all :hireswallclock);

foreach my $arraySize(10,100,1_000,10_000,100_000) {
    my @numdata=map rand, 0..$arraySize;
    my @strdata=map {sprintf "%d",$_} @numdata;

    print "========== ARRAY SIZE: $arraySize\n";

    cmpthese(
            -1,
            {
                'str-ST' => sub {
                    my @arr = @strdata;
                    @arr = map { $_->[0] }
                           sort {$a->[1]<=>$b->[1]}
                           map { [$_, length($_)]}
                           @arr;
                },

                'str-sort' => sub {
                    my @arr = @strdata;
                    @arr = sort {length($a) <=> length($b)} @arr;
                },

                'num-ST' => sub {
                    my @arr = @numdata;
                    @arr = map { $_->[0] }
                           sort {$a->[1]<=>$b->[1]}
                           map { [$_, length($_)]}
                           @arr;
                },

                'num-sort' => sub {
                    my @arr = @numdata;
                    @arr = sort {length($a) <=> length($b)} @arr;
                },

            }
        );
}