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