$ perl -wle'sub {}->($hash{test_elem}); print keys %hash'


$ perl -wle'sub { $_[0]=1; }->($hash{test_elem}); print keys %hash'
test_elem