@new= sort {
  my ($a1,$a2)= split /\s+/,$a;
  my ($b1,$b2)= split /\s+/,$b;
  return($a1<=>$b1 or $a2 cmp $b2);
} @old;