#!/bin/perl -w
use strict;
use Text::Template;

@T::list= qw( foo bar baz);

my $template = new Text::Template (TYPE => 'FILEHANDLE', SOURCE => \*DATA );
print $template->fill_in( PACKAGE => 'T');


  
__DATA__
{sub table_line
  { $OUT .= "<tr>";
    foreach (@_) { $OUT .= "<td>$_</td>"; }
    $OUT .= "</tr>";
  }
}

simple list:{table_line( @list);}