$foo = "NARGLE";
print ref($foo), "\n";
defined(ref($foo)) ? print "Y\n" : print "N\n";
ref($foo) == undef() ? print "Y\n" : print "N\n";