my %inarea;
if ($km < $distance) {
  ...
  $inarea{$km}= {area=>$area, area1=>$area1, hStore=$hStore };
}

##</code><code>##

foreach my $km ( sort keys %inarea ) {
  print " <table ...
  
   $inarea{$km}{area}</A><BR> ...