Select Code to Download

my @words=qw(The time has come the Walrus said to speak of many things
+);
my @sorted=map { pop @$_ }
           sort{ $a->[0] <=> $b->[0] ||
                 $a->[1] cmp $b->[1] }
           map { [tr/eE/eE/,$_] } @words;

my @sorted=map  { substr($_,4) }
           sort 
           map  { pack("LA*",tr/eE/eE/,$_) } @words;