#! perl -w
use Template;
my $tt = Template->new();
foreach my $data ([undef => undef], [ empty => []],
  ['("foo", "bar", "baz")' => [qw(foo bar baz)]]) {
    print "// List is $data->[0]:\n";
	$tt->process('tt2.tmpl', { list => $data->[1] });
    print "\n\n";
}