Select Code to Download

my %hash_variable_with_not_actually_that_long_name = (one => 1);
print $hash_variable_with_not_actually_that_long_name{one}, "\n";
...
# output
1
1

$_ = 2;
print $_, "\n";
...
2
1
(empty, with 'uninit' warnings under -w)