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