foreach my $line (@html) {
    $html .= $line;
}