perl -ple"printf q[%s], scalar <STDIN> unless $n++ % 10" file1 < file2