Help for this page
use strict; use warnings; ... print $p->{2}; $p->{2} = 'd'; }
use strict; use warnings; ... my %h = %{shift()}; print $h{2}; }