foreach my $line (@lines) {