Is that line number around here in IO::Socket::INET6 - what version do you have ? 2.72 ?

for( my $r=0;$r<@rres;$r+=5 ) {
            for( my $l=0;$l<@lres;$l+=5) {
                my $fam_listen = $lres[$l];
                next if $rres[$r] != $fam_listen; # must be same famil
+y
                push @flr,[ $fam_listen,$lres[$l+3],$rres[$r+3] ];
            }
        }
[download]