exists &$ref, not defined &$ref:

$ perl -we'sub AUTOLOAD {1} sub foo; print main->foo, 0+exists&foo, 0+
+defined&foo'
110
[download]