foreach my $line (@lines) {
        ...
    }