$html .= "<table class=\"foo\"><thead><tr>"
        . (join "\n", map {"<th>$_</th>"} @field)
        . "</tr></thead><tbody>\n"
        . (join "\n", map { my %record = %$_;
          "<tr class=\"".(somecondition($_))."\">"
            .(join "\n", map {"<td>$record{$_}</td>"} @field)."</tr>"
        } @record) . "</tbody></table>\n";