open($in_fh1, '<', $in_file1);
open($in_fh2, '<', $in_file2);
open($out_fh, '>', $out_file);

while (my $line1 = <$in_fh1>)
{
   chomp($line1);
   state $i;
   $i++;
   say {$out_fh} $line1;
   unless ($i % 10)
   {
      chomp(my $line2 = <$in_fh2>);
      say {$out_fh} $line2 if $line2;
   }
}