写了个程序，麻烦大家看下有什么Bug

#!/usr/bin/perl -w
use strict;
open F1,"<$ARGV[0]" or die $!;
open F2,"<$ARGV[1]" or die $!;
open OUT1,">$ARGV[2]" or die $!;
open OUT2,">$ARGV[3]" or die $!;
my $date_tst=localtime(time);
print "$date_tst\n";


while ( my $line1 = <F1>){
  my $line2= <F1>;
  my $line3 = <F1>;
  my $line4 = <F1>;
  my $line5 = <F1>;
  my $line6 = <F1>;
 # my $line7 = <F1>;
  # my $line8 = <F1>;
  # my $line9 = <F1>;
#my $info2,my $ref2,my $indel2,my $line24,my $line25,my $line26;


  while ( my $line21 = <F2>){
  my $line22= <F2>;
  my $line23 = <F2>;
  my $line24 =<F2>;
  my $line25 =<F2>;
  my $line26 =<F2>;
  while ( my $line21 = <F2>){
  my $line22= <F2>;
  my $line23 = <F2>;
  my $line24 =<F2>;
  my $line25 =<F2>;
  my $line26 =<F2
print OUT1 "$line1"."$line2"."$line3"."$line24"."$line25"."$line26";
print OUT2 "$line21"."$line22"."$line23"."$line4"."$line5"."$line6";

}
}
$date_tst=localtime(time);
print "$date_tst\n";

想实现交叉输出文件内容：
比如a.txt：
a
b
c
e
f
g
h
i
j
k
b.txt 为：
1
2
3
4
5
6
7
8
9
想输出c1 为：
a
b
c
4
5
6
h
i 
j
......

有没有bug自己测。