our $line1;
...
our @lines1 = (<FINAL>);
...
foreach $line1(@line1){