my ( $a, $b, $c ) = ( 0, '', undef );
print defined $a, " -0-\n"; # prints 1 -0-
print defined $b, " --\n";  # prints 1 -- 
print defined $c, " undef"; # prints 0 undef