foo|bar|baz
aaa|bbb|ccc
##</code><code>##

$VAR1 = 'aaa';
$VAR2 = [
          'bbb',
          'ccc'
        ];
$VAR3 = 'foo';
$VAR4 = [
          'bar',
          'baz'
        ];
##</code><code>##

#12345678901234567890123456789012345678901234567890
%prod=map{chomp;split/\|/;shift@_,[@_]}<SRC>