# instead of this:
my @lines = <DATA>;

# do something like this:

while my $line (<DATA>) {
...
}