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