Select Code to Download

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

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