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