##
%$ref->[0]->{param}->[1]->{name};
####
print foreach HASH $obj->{param}; # or we don't like barewords
print foreach 'HASH' $obj->{param}; # or parhaps it's really in a pragma
use dereference qw/HASH/;
print foreach HASH $obj->{param}; # or it stays the same
print foreach %{$obj->{param}};