while($Dist < 10)
{ 
$counter++;
    print "$counter animals are found withing 10KM\n"
  }