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