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>"
;