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