Ловушки Perl

use strict;
use warnings;

package RegionsData;

our %REGIONS = (
    192 => {
        name => 'порт Хавнор',
        type => 6,
        parents => [ 0, 225, 3, 10658 ],
        childs => [  ],
    },
    10658 => {
        name => 'Хавнор',
        type => 5,
        parents => [ 0, 225, 3 ],
        childs => [ 10668, 192, 10664 ],
    },
    10668 => {
        name => 'Южный порт',
        type => 6,
        parents => [ 0, 225, 3, 10658 ],
        childs => [  ],
    },
    11450 => {
        name => 'Рок',
        type => 5,
        parents => [ 0, 225, 73 ],
        childs => [  ],
    },
    20538 => {
        name => 'Лорбанери',
        type => 5,
        parents => [ 0, 187, 20525 ],
        childs => [  ],
    },
    # ...
);

1;

use strict;
use warnings;

use RegionsData;

my @leaf_islands;
for my $id (keys %RegionData::REGIONS){
    my $reg = $RegionData::REGIONS{$id};
    if( $reg->{type} == 5 && @{$reg->{childs}} == 0 ){
        push @leaf_islands, $reg->{name};
    }
}

print join ",", @leaf_islands;