Select Code to Download

my $places_labels = {}; 

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