#! perl -sw
use strict;

open IN, '<', $ARGV[0] or die $!;

my @index;
my $pos = 0;
while( <IN> ) {
    my( $k1, $k2 ) = m[(^\S+)\s+(\S+)];
    push @index, [$k1, $k2, $pos];
    $pos = tell IN;
}

@index = sort{
    $a->[0] cmp $b->[0] || $a->[1] cmp $b->[1]
} @index;

open OUT, '>', 'sorted';
for my $r ( @index ) {
    seek IN, $r->[2], 0;
    print OUT scalar <IN>;
}
close OUT;
close IN;


__END__
C:\test>dir unsorted
15/09/2013  14:40       117,501,066 unsorted

C:\test>wc -l unsorted
5000000 unsorted

C:\test>head unsorted
key25 key15 xxxxxxxxxxx
key28 key05 xxxxx
key30 key18 xxxxxxxxxxxxxx
key24 key03 xxxxxxxxx
key41 key01 xxxxxxxxxxxxxx
key12 key16 xxxxxxxxxxxx
key38 key20 xx
key19 key19 xxxxxxxxxxxxxxxxxx
key30 key13 xxxxxxxx
key16 key19 xxxxxxxxxxxxx

[14:41:03.25] C:\test>1054101 unsorted

[14:43:19.59] C:\test>
[14:44:38.83] C:\test>head sorted
key01 key01 xxxxxxxxxxxxx
key01 key01 xxxxxxx
key01 key01 x
key01 key01 xxxxxxxx
key01 key01 xxxxx
key01 key01 xxxxxx
key01 key01 xxxxxxxxxxxxxxxxx
key01 key01 xxxxxx
key01 key01 xx
key01 key01 xxxxxxxxxx