$found="0";
    @orgs = split /\n/,$good_orgs;
    
    foreach $good_orgs (@orgs) {
            if ($organization =~ /$good_orgs/i)  {
            $found = "1";
        	} 
        }
        
        if ($found eq "0") {
        &error_suspect_org;
        }