$html .= $q->table(
{ -bgcolor => '#ffffff',
-border => 1 },
$q->caption('Status Summary'),
# beware beautiful nested maps ahead
$q->Tr( [ map { my $k = $_;
$q->td( [ $k,
map { $data->{$k}{$_} }
sort keys %{ $data->{$k} }
]
)
} sort keys %{ $data }
]
)
);