print "At least one undefined!\n" unless( scalar( keys %$hash ) == 3 );

##</code><code>##

print "At least one undefined!\n" unless( ( sort { ...some function... } keys %$hash )[3] eq 'C' );