"Optimizations"

        @sorted = map  {$_->[0]} 
                  sort {$a->[1] cmp $b->[1]} 
                  map  {[$_, lc $_]} 
                  @stuff;

• Here are the benchmark results on a list of 11,632 strings:

                      User   Sys  Total
              Direct  0.23  0.00   0.23
         Schwartzian  0.85  0.08   0.93

Next

Copyright © 2003 M. J. Dominus