Select Code to Download

@Data = sort by_projname @Data;

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

@Data = map  { $_->[0] }
        sort { $_->[1] cmp $_->[1] }
        map  { $_, [ (split /\|/)[1] ] } @Data;