#   Tie the array @file to /path/to/file using a maximum of 1Mb of memory

tie my @file, 'Tie::File', '/path/to/file', 'memory' => 1_000_000 or
    die "Cannot open file - $!";

foreach my $line ( @file )
{
    #   ... Your code follows ...
}