my @dumplist;
foreach my $key (keys %{$ref->[10]}) {
	my $dumptxt = Data::Dumper->Dump([$ref->[10]{$key}],[$key]);
	$dumptxt =~ s/&/&/g;
	$dumptxt =~ s/</&lt;/g;
	$dumptxt =~ s/>/&gt;/g;
	$dumptxt =~ s/\n/<br>/g;
	push @dumplist,$dumptxt;
}

$text .= "<br><br>Dump/-s:\n<pre>"
	.join("<b>----------------------------------------------------------------</b><br>",@dumplist)
	."</pre>"
;