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