perl -anF"\|" -le"$f{shift@F}=[@F[1..$#F]]" pipe.txt