$ perl -wle'my $r = \$hash{test_elem}; print keys %hash; print defined($hash{test_elem})?1:0;'
test_elem
0

$ perl -wle'1 for $hash{test_elem}; print keys %hash; print defined($hash{test_elem})?1:0;'
test_elem
0