my @complaints = (
                   {
                     'complaint_id' => 'a123',
                     'x'            => '45.2',
                     'y'            => '39.7'
                   },
                   {
                     'complaint_id' => 'b456',
                     'x'            => '46.5',
                     'y'            => '41.2'
                   },
                   {
                     'complaint_id' => 'c789',
                     'x'            => '11.9',
                     'y'            => '29.8'
                   },
                   {
                     'complaint_id' => 'd863',
                     'x'            => '95.3',
                     'y'            => '17.2'
                   },
                   {
                     'complaint_id' => 'e635',
                     'x'            => '65.5',
                     'y'            => '33.3'
                   },
                 ) ;



my @highlight = (0.0,0.0);
my $highvalue = 0.0;


foreach $testpoint (@complaints) {
	for ($i = 0.0; $i < 100.0; $i += 1.0) {
		for ($j = 0.0; $j < 100.0; $j+= 1.0) {
			$dsqrd = ((($testpoint->{'x'} - $i)**2 + ($testpoint->{'y'} - $j)**2));
			$points[$i][$j] += $dsqrd ? (1000 / ($dsqrd * 4 * 3.14)) : 0 ;
			if ($points[$i][$j] > $highvalue) {
				@highlight = ($i,$j);
				$highvalue = $points[$i][$j];
			}
		}
	}
}

print "\n\n $highlight[0], $highlight[1] has value $highvalue\n";