>perl -le "my %hash; exists($hash{foo}); print scalar %hash" 0