sub tree_to_table
{
	if ( ref $_[-1] )
	{
		my $hr = pop;
		my @kv;
		tree_to_table( @_, @kv ) while @kv = each %$hr;
	}
	else
	{
		local($,,$\) = (',',"\n");
		print map qq("$_"), @_
	}
}

tree_to_table( $exception_report );