>perl -le "$hash->{foo}; print $hash ? 1 : 0"
1