>perl -wMstrict -MData::Dumper -le
"sub func {
   my %args = %{ $_[0] };
   print Dumper \%args;
   print $args{foo}->{bar};
   }
 func({ foo => { bar => 'baz' } });
"
$VAR1 = {
          'foo' => {
                     'bar' => 'baz'
                   }
        };

baz