#!/usr/bin/perl
use Benchmark;

@unsorted = ("Larry Wall",
             "Jane Sally Doe",
             "John Doe",
             "Morphius",
             "Jane Alice Doe",
             "Arthur C. Clarke");
      
timethese(100000, {
    "schwartzian" => sub { my @sorted = 
                                map{ $_->[0] }
                                sort {$a->[1] cmp $b->[1]}
                                map { m/(.*?)\s*(\S+)$/; [$_, "$2 $1" ] }
                                @unsorted },
    "sort routine" => sub { my @sorted = sort mysort @unsorted }
});

sub mysort
{
    $a =~ m/(.*?)\s*(\S+)$/;
    $aa = "$2 $1";
    $b =~ m/(.*?)\s*(\S+)$/;
    $bb = "$2 $1";
    return $aa cmp $bb;
}