なんか無理に問題を難しくしてないか？

open IN1,"data.txt";　open IN2,"data1.txt";　open OUT,">data3.txt";
while(<IN1>){chomp; print OUT $_ . ',' . <IN2>;}
close OUT;　close IN2;　close IN1;


じゃダメなのか？
まあこんなことは俺も迷わず>>559と同じことをするけど。