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

##</code><code>##

print "Oh No!(3)" if exists $rec{NOTE}{Nested};
print "Oh No!(4)" if exists $rec{NOTE};

OUTPUT: 
Oh No! (4)