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

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