%prod=map{chomp;@a=split/\|/;shift@a,[@a]}; ##

##

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