sub forloop { return join "", map{$_[1]->();}(@{$_[0]}) }
    sub table   { "<table>\n".$_[0]."</table>\n";}
    sub row     { "<tr>".$_[0]."</tr>\n";}
    sub cell    { "<td>".$_[0]."</td>";}

    my  $data000    = [map{chomp;$_;}(<DATA>)];

    print
        table(
            forloop $data000 , sub{
                row(cell($_))
            },
        )

__DATA__
one
two
three
four
five