Select Code to Download

foo|bar|baz
aaa|bbb|ccc

$VAR1 = 'aaa';
$VAR2 = [
          'bbb',
...
          'bar',
          'baz'
        ];

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