Help for this page
use strict; use warnings; ... print $OF join("\t", @Rec1), "\n"; last if eof($IF1) and eof($IF2); }