my $places_labels = {}; 

# .... about 100 lines skipped

while (my $p = $i->next) {
    $place_labels->{$p->id} = $p->name;
}