#! perl -slw
use strict;
use Benchmark qw[ cmpthese ];

use Sort::Key::Maker sort_num_str =>
   sub { /^(\d+)(.*)/ }, qw(num str);

sub log10{ log( $_[ 0 ]) / log( 10 ) }

our $N ||= 1000;
our $CHECK ||= 0;
our $ITERS = $CHECK ? 1 : -int( log10 $N );

our @data = map{ int( rand 1000 ) . ('A'..'Z')[ rand 26 ] } 1 .. $N;

my %tests =  (
    sort => q[
        my @sorted = sort{ $^W=0; $a<=>$b or $a cmp $b } @data;
        print "s:@sorted" if $CHECK;
    ],
    'S::M' => q[
        my @sorted = sort_num_str @data;
        print "S::M:@sorted" if $CHECK;
    ],
    GRT    => q[
        my @sorted = map {
            substr $_, 4
        } sort map {
            $^W=0;
            pack 'NA*', 0+$_, $_
        } @data;
        print "GRT:@sorted" if $CHECK;
    ],
);

cmpthese $ITERS, \%tests;
[download]

C:\Perl\packages\Sort-Key-0.10>nmake test

Microsoft (R) Program Maintenance Utility Version 7.00.9466
Copyright (C) Microsoft Corporation.  All rights reserved.

        C:\perl5.8.6\bin\perl.exe "-MExtUtils::Command::MM" "-e" "test
+_harness(0, 'blib\lib', 'blib\arch')" t\floats.t t\ints.t t\multi.t t
+\strings.t
t\floats.....ok
t\ints.......ok 3/5
t\ints.......NOK 4#     Failed test (t\ints.t at line 17)
#     Structures begin differing at:
#          $got->[0] = '9.1766357421875'
#     $expected->[0] = '9.2138671875'
t\ints.......ok 5/5# Looks like you failed 1 test of 5.
t\ints.......dubious
        Test returned status 1 (wstat 256, 0x100)
DIED. FAILED test 4
        Failed 1/5 tests, 80.00% okay
t\multi......ok
t\strings....ok
Failed Test Stat Wstat Total Fail  Failed  List of Failed
----------------------------------------------------------------------
+---------
t\ints.t       1   256     5    1  20.00%  4
Failed 1/4 test scripts, 75.00% okay. 1/21 subtests failed, 95.24% oka
+y.
NMAKE : fatal error U1077: 'C:\perl5.8.6\bin\perl.exe' : return code '
+0xff'
Stop.
[download]