while (<SUBNET> ) {
       chomp; 
       if ($ip_subnet eq $_) { 
             print "PASS\n"; 
       } else { 
             print "FAIL\n"; 
       } 
}