Help for this page
<TMPL_LOOP PHONEBOOK> <tr> ... </td> </tr> </TMPL_LOOP>
my $t = HTML::Template->new; $t->param(PHONEBOOK => \@data); print $t->output;