$ perl -le"print \undef"
SCALAR(0x3d5790)

$ perl -le"print defined \undef"
1

$ perl -le"print \1"
SCALAR(0x3d8284)

$ perl -le"print defined \1"
1