Most of your problems would go away if you replace the unfriendly data structure inside the places slots by a simple hash:

for my $entry (values %$list) {
    $entry->{places} = { map %$_, @{$entry->{places}} };
}
[download]