@Data = sort by_projname @Data;

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