my @unsorted = sort map { "foo$_.tla" } 0..999;

Benchmark::cmpthese(5000, {
   naive       => sub { scalar naive       @unsorted; },
   orcish      => sub { scalar orcish      @unsorted; },
   schwartzian => sub { scalar schwartzian @unsorted; },
   guttros     => sub { scalar guttros     @unsorted; },
});