while (my $line2 = <FILE2>) {

##</code><code>##

my $line2 = <FILE2>;