my @data; $#data = 25e6; my $i = 0;
$data[ $i++ ] = pack "NNA*", m[(\d+)\D+(\d+)], $_ while <>;

##</code><code>##

@data = sort @data;

##</code><code>##

substr $_, 0, 8, '' for @data;