«Недостаточно памяти» при анализе большого (100 Мб) XML-файла с использованием perl

У меня ошибка « Недостаточно памяти » при анализе большого (100 Мб) XML-файла

use strict;
use warnings;
use XML::Twig;

my $twig=XML::Twig->new();
my $data = XML::Twig->new
             ->parsefile("divisionhouserooms-v3.xml")
               ->simplify( keyattr => []);

my @good_division_numbers = qw( 30 31 32 35 38 );

foreach my $property ( @{ $data->{DivisionHouseRoom}}) {

    my $house_code = $property->{HouseCode};
    print $house_code, "\n";

    my $amount_of_bedrooms = 0;

    foreach my $division ( @{ $property->{Divisions}->{Division} } ) {

        next unless grep { 
 У меня ошибка « Недостаточно памяти » при анализе большого (100 Мб) XML-файла 
 [110] 
 Что я могу сделать, чтобы исправить эту ошибку? 
 eq $division->{DivisionNumber} } @good_division_numbers;
        $amount_of_bedrooms += $division->{DivisionQuantity};
    }

    open my $fh, ">>", "Result.csv" or die $!;
    print $fh join("\t", $house_code, $amount_of_bedrooms), "\n";
    close $fh;
}

Что я могу сделать, чтобы исправить эту ошибку?