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