#!/usr/bin/perl

use strict;
use warnings;
use Text::Wrap qw(wrap);

use Benchmark qw(cmpthese);

my @words = qw(
EMBOSOM EMBOWED EMBOWEL EMBOWER EMBRACE EMBROIL EMBROWN EMBRUED EMBRUES 
EMBRUTE EMBRYON EMBRYOS EMENDED EMENDER EMERALD EMERGED EMERGES EMERIES 
EMERITA EMERITI EMERODS EMEROID EMERSED EMETICS EMETINE EMETINS EMEUTES 
EMIGRES EMINENT EMIRATE EMITTED EMITTER EMODINS EMOTERS EMOTING EMOTION
EMOTIVE EMPALED EMPALER EMPALES EMPANEL EXFOLIATIONS EXHAUSTIVELY 
EXHAUSTIVITY EXHIBITIONER EXHILARATING EXHILARATION EXHILARATIVE 
EXHORTATIONS EXIGUOUSNESS EXOBIOLOGIES EXOBIOLOGIST 
EXONERATIONS EXONUCLEASES EXOPEPTIDASE EXOPHTHALMIC
);



my $test={
    st => sub {
         my @sorted =
            map { $_->[1] }
            sort { $a->[0] <=> $b->[0] || $a->[1] cmp $b->[1] }
            map { [ tr/eE/eE/, $_ ] } @words;
    },
    grt => sub {
        my @sorted =
            map { substr($_, 4) }
            sort
            map { pack("LA*", tr/eE/eE/, $_) } @words;
    },
    bare => sub {
        my @sorted = sort { ($a =~ tr/eE/eE/) <=> ($b =~ tr/eE/eE/) 
                            || $a cmp $b } @words;
    }
};


foreach my $t (keys %$test) {
	print "Test '$t'\n",wrap("\t","\t",join(", ",$test->{$t}->())),"\n";
}

@words=map { ( $_ x 100 ) x 100 } @words;
cmpthese(-3,$test);