Help for this page
foo|bar|baz aaa|bbb|ccc
$VAR1 = 'aaa'; $VAR2 = [ 'bbb', ... 'bar', 'baz' ];
#12345678901234567890123456789012345678901234567890 %prod=map{chomp;split/\|/;shift@_,[@_]}<SRC>