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

sub report_block
{
  my ($rpt_ref) = shift;

  print Dumper($rpt_ref);
  #access elements here!
  print $rpt_ref->{total};
}