my $found=0;
while(<USERPREF>) {
    chomp;      
    if (exists($update_words{$_})) {
        print "found $_ \n";
        $found=1;
    }
}

if (not $found) {
   print "not found $_ \n";
   #write
}