foreach $c (0..255) { foreach $d (0..255) { print "81.86.$c.$d" unless $res->query("81.86.$c.$d", "PTR"); } }