my %h = (a => 1); $h{print} = 1; $h{-foo} = 2; print $h{if}; $x->{sub} = 3;