$ perl -wle'my $x = $hash{test_elem}; print keys %hash'