my @unsorted = <TOSORT>;
  my @sorted = sort byPhone @unsorted;

##</code><code>##

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