Benchmark: running Liz, ST for at least 5 CPU seconds...
       Liz:  5 wallclock secs ( 5.28 usr +  0.01 sys =  5.29 CPU) @ 99.05/s (n=524)
        ST:  5 wallclock secs ( 5.30 usr +  0.00 sys =  5.30 CPU) @ 100.94/s (n=535)
      Rate Liz  ST
Liz 99.1/s  -- -2%
ST   101/s  2%  --

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw /cmpthese/;

our @array = map {("a" x 80) . sprintf ":%03d" => $_} 0 .. 999;
our (@a, @b, @c);

for (my $i = @array; -- $i;) {
    my $j = rand ($i + 1);
    @array [$i, $j] = @array [$j, $i];
}

cmpthese -5 => {
    ST  => '@::a = map  {$_ -> [0]}
                   sort {$a -> [1] <=> $b -> [1]}
                   map  {[$_ => substr $_, 81]} @array',
    Liz => '@::b = map  {${$_ -> [0]}}
                   sort {$a -> [1] <=> $b -> [1]}
                   map  {[\$_ => substr $_, 81]} @array',
    GRT => '@::c = map  {substr ($_, 4) . ":" . substr ($_, 0, 3)}
                   sort
                   map  {substr ($_, 81) . ":" . substr ($_, 0, 80)} @array'
};

foreach my $i (0 .. 999) {
    die unless $a [$i] eq $b [$i] && $a [$i] eq $c [$i]
}

__END__

Benchmark: running GRT, Liz, ST for at least 5 CPU seconds...
       GRT:  5 wallclock secs ( 5.33 usr +  0.00 sys =  5.33 CPU) @ 198.87/s (n=1060)
       Liz:  5 wallclock secs ( 5.31 usr +  0.00 sys =  5.31 CPU) @ 98.87/s (n=525)
        ST:  6 wallclock secs ( 5.31 usr +  0.01 sys =  5.32 CPU) @ 100.38/s (n=534)
      Rate  Liz   ST  GRT
Liz 98.9/s   --  -2% -50%
ST   100/s   2%   -- -50%
GRT  199/s 101%  98%   --