%prod = map {
  chomp;
  @a = split /\|/;
  shift(@a) => [@a]
} <SRC>