#!perl -pa print shift@$_,' 'for@y;shift@F;push@y,[@F]