perl -anF'|' -le'$f{shift@F}=[@F[1..$#F]]' pipe.txt

##</code><code>##

#!/usr/bin/perl
#12345678901234567890123456789012345678901234567890123456789012345
open SRC, '<pipe.txt';%prod=map{chomp;split/\|/;shift@_,[@_]}<SRC>