print "Oh No!(1)" if $rec{NOTE} eq "Beware!"; 
print "Oh No!(2)" if exists $rec{NOTE};