srand 0;
my @fixture = map 'foo' . int( rand 1000 ). '.tla', 1..5000;
use Benchmark 'cmpthese';
cmpthese( -1,
          {
           naive       => sub { ( naive( @fixture ) )[ 0 ] },
           orcish      => sub { ( orcish( @fixture ) )[ 0 ] },
           schwartzian => sub { ( schwartzian( @fixture ) )[ 0 ] },
           guttros     => sub { ( guttros( @fixture ) )[ 0 ] },
          }
        );
__END__
              Rate       naive      orcish schwartzian     guttros
naive       3.05/s          --        -65%        -76%        -87%
orcish      8.74/s        186%          --        -31%        -61%
schwartzian 12.7/s        317%         46%          --        -44%
guttros     22.6/s        642%        159%         78%          --