my $currentRegion = '';
my %regions = ();

while (<FILE>) {
    chomp;

    /REGION (\d+) (.+)/ and do {

        $currentRegion = $1;
        $regions{$currentRegion}{Name} = $2;
        next;
    };

    /REGION TOTAL (.+)/ and do {
        
        $regions{$currentRegion}{Total} = $1;
        $currentRegion = '';
        next;
    };

    do {
        push @{$regions{$currentRegion}{Data}}, $_ if $currentRegion ne '';
        next;
    };
}