sub byPhone {
      return (split(/\|/, $a))[1] cmp (split(/\|/, $b))[1];
  }