Help for this page
File1 138.63.20.48 ... Company5-35.117.181.0-35.117.181.127 Company6-55.207.128.0-55.207.143.255 Company7-138.63.20.12-138.63.20.95
open (IP1,"ipsnew.txt"); open (WHERE,"whereby.txt"); ... if ($beg_line1{$ip1} == $beg_line2{$ip2}) { print "we have a match at $ip1\n";}