Help for this page

Select Code to Download


  1. or download this
    my %inarea;
if ($km < $distance) {
  ...
  $inarea{$km}= {area=>$area, area1=>$area1, hStore=$hStore };
}
  2. or download this
    foreach my $km ( sort keys %inarea ) {
  print " <table ...
  
   $inarea{$km}{area}</A><BR> ...