$,=" : ";$\="\n"; print $_, $$rpt_ref->{$_} for keys %{$$rpt_ref};