report_block(\$report_data{$domain}{$provider}); sub report_block { my ($rpt_ref) = shift; print Dumper($rpt_ref); #access elements here! } #### $VAR1 = \{ 'error' => 0, 'total' => 7, 'soft_error' => 0, 'hard_error' => 0, 'ok' => 7 }; #### print $rpt_ref{total}; #Global symbol "%rpt_ref" requires explicit package name... print $rpt_ref->{total}; #Not a HASH reference at...