Построчное склеивание файлов

#!/usr/bin/perl

open(F1,"<file1"); open(F2,"<file2"); open(F3,"<file3");

while(($S1=<F1>) and ($S2=<F2>) and (S3=<F3>)) { print "$S1\t$S2\t$S3\n"; } close(F1); close(F2); close(F3);

как-то так?

paste file1 file2 file3