According to, "perldoc -f ref", ref returns a true value if EXPR is a reference, false otherwise. It does not say undef is returned.

A defined test on a "false" value returns true, since even a "false" value is defined.

The following snippet:

print defined 0 ? 'Y' : 'N';
[download]

prints 'Y'.