Select Code to Download

sub cell_wrap {
    join '', map {"<tr><td>$_</td></tr>"} @_;
}

for (@$matrix_ref) {
    $html_str .= cell_wrap(
        $_->[0] eq $key
...
        : (@{$_}[0..2]) );
    $key = $_->[0];
}