report_block(\$report_data{$domain}{$provider});


sub report_block
{
  my ($rpt_ref) = shift;

  print Dumper($rpt_ref);
  #access elements here!
}

##</code><code>##

$VAR1 = \{
            'error' => 0,
            'total' => 7,
            'soft_error' => 0,
            'hard_error' => 0,
            'ok' => 7
          };

##</code><code>##

print $rpt_ref{total};
#Global symbol "%rpt_ref" requires explicit package name...

print $rpt_ref->{total};
#Not a HASH reference at...