use Benchmark 'cmpthese';

sub gr {                        # Guttman-Rosler transform
  map { substr( $_, 3 ) } sort
  map { sprintf( '%03d', /abc(\d+)xyz/ ) . $_ } @_;
}

srand 0;
my @u = map 'abc' . int( rand 1000 ) . 'xyz', 1..500;

cmpthese( -1, { s_aa => sub { my @s = sort @u        },
                s_fi => sub {       ( sort @u )[ 0 ] },
                s_na => sub {    () = sort @u        } } );

cmpthese( -1, { g_aa => sub { my @s = gr @u        },
                g_fi => sub {       ( gr @u )[ 0 ] },
                g_na => sub {    () = gr @u        } } );