357,0 sauoq@fozzie:~$ perl -MData::Dumper -F'\|' -lane'($k,@v)=@F;$f{$k}=\@v}{print Dumper \%f'
foo|bar|baz
qux|zab|oof
$VAR1 = {
          'qux' => [
                     'zab',
                     'oof'
                   ],
          'foo' => $VAR1->{'qux'}
        };