perl -00ne 'BEGIN { $filename = "MyFileName0000" } { open my $IFILE, ">", $filename++; print $IFILE  $_ }' table1.txt table2.txt tableN.txt