map {   
		
		my ($lat,$long) = split ",", $_;
		
		my @links = @{$records->{$_}};
		
		my $box_contents;
		my @html_contents;
		my $num_links = $#links+1;
		foreach (@links) {
			my $link = $links->{$_};
			
                        # do stuff here 
                }

   } keys %$seen;