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