perl -ane '$\="\n";$,=",",%g=(scalar(@F) => [0 .. scalar(@F)-1], 7 => [0..4], 10 => [0..7]); print @F[@{$g{scalar(@F)}}],scalar(@F)'