my $count = 0;
for my $list1 (@List1) {
   for my $list2 (@List2) {
      if (abs($list1 - $list2) <= .2) {
         $count++
      }
   }
}

print("$count\n");

##</code><code>##

my $tol = 2**(-30);  # ~ 0.000000001

my $count = 0;
for my $list1 (@List1) {
   for my $list2 (@List2) {
      if (abs($list1 - $list2) - $tol <= .2) {
         $count++
      }
   }
}

print("$count\n");