perl -F'\|' -lane'($k,@v)=@F;$f{$k}=\@v'