Select Code to Download

my @new = sort {(split /\s+/, $b)[0] <=> (split /\s+/, $a)[0]} @old;

use Data::Dumper;
use strict;
...
    my @new = sort {(split /\s+/, $b)[0] <=> (split /\s+/, $a)[0]} @ol
+d; 
}
print time() - $t0, "\n";