for my $region (keys %entries)
{
...
}