Help for this page
perl -anF'|' -le'$f{shift@F}=[@F[1..$#F]]' pipe.txt
#!/usr/bin/perl #12345678901234567890123456789012345678901234567890123456789012345 open SRC, '<pipe.txt';%prod=map{chomp;split/\|/;shift@_,[@_]}<SRC>