>perl -wMstrict -le
"my $frm = { foo => 11,  bar => 22 };
 print $$frm  {bar};
 print $frm ->{bar};
"
22
22