my %hash_variable_with_not_actually_that_long_name = (one => 1);
print $hash_variable_with_not_actually_that_long_name{one}, "\n";
*_ = \%hash_variable_with_not_actually_that_long_name;
print $_{one}, "\n";

# output
1
1