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

# open the html template
my $tt = <<USAGE
Start
<TMPL_LOOP AUSSEN>
  Loop Nummer <TMPL_VAR NUMMER>:
  <TMPL_LOOP INNEN>
     innerer Loop <TMPL_VAR LETTER>
  </TMPL_LOOP>
</TMPL_LOOP>
Ende
USAGE
    ;
my $template = HTML::Template->new(scalarref => \$tt,
#				   option => 'value',
#				   die_on_bad_params => 0,
				   );

$template->param(AUSSEN => [ { NUMMER => 1,
			       INNEN => [
					 { LETTER => 'a1' },
					 { LETTER => 'b1' },
					 ]
					   },
			     { NUMMER => 2,
			       INNEN => [
					 { LETTER => 'a2' },
					 { LETTER => 'b2' },
					 ]
					   },
			     ]
		 );

print $template->output;