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


sub report_block
{
  my ($rpt_ref) = shift;

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