#! perl -w
use strict;

my %data; # Choose a better name

#open DATA, '<yourfile' or die "Couldn't open $DATA; $!";

while(<DATA>) {
	chomp;
	my ($place,$number) = split /\s+/;
	push @{$data{$place}}, $number;
}
#close DATA or warn "Couldn't close $DATA: $!";

for my $place  (keys %data) {
	print $place, "\thas values: (";
	print @{$data{$place}}[$_], ',' for (0 .. $#{$data{$place}});
	print ")\n";
}
__DATA__
amsterdam  23
amsterdam  88
london    65
ny      10
ny      16
la      21
la      65
miami     9
lapaz    10