use strict;
use warnings;

my @firstlist  = qw/.2 .3 .4/;
my @secondlist = qw/.4 .5 .6/;

my $hits;

for my $first (@firstlist) {
    $hits += grep {abs($_ - $first) <= .2} @secondlist;
}

print "Result : $hits";