perl -lanE 'for (0..$#F) { `echo $F[$_] >> file$_` }'