Help for this page
sub cell_wrap { join '', map {"<tr><td>$_</td></tr>"} @_; }
for (@$matrix_ref) { $html_str .= cell_wrap( $_->[0] eq $key ... : (@{$_}[0..2]) ); $key = $_->[0]; }