use strict;
use HTML::Template;
my $template_text;
{
	local $/;
	$template_text = <DATA>;
}

my $template = HTML::Template->new('scalarref' => \$template_text);
my $sections = [
	{ 'section_name' => 'Foo',
	  'sub_sections' => [
		  { 'sub_section_name' => 'Foo part 1' },
		  { 'sub_section_name' => 'Foo part 2' },
		  { 'sub_section_name' => 'Foo part 3' }
	  ]
    },
	{ 'section_name' => 'Bar',
	  'sub_sections' => [
		  { 'sub_section_name' => 'Bar part 1' },
		  { 'sub_section_name' => 'Bar part 2' },
		  { 'sub_section_name' => 'Bar part 3' }
	  ]
    }
];


$template->param('section_names' => $sections);
print $template->output;


__DATA__
<TMPL_LOOP NAME=SECTION_NAMES>
    <p><b><input type="radio" name="section" value="<TMPL_VAR SECTION_NAME>" /><TMPL_VAR SECTION_NAME>:</b></p>
    <TMPL_LOOP NAME=SUB_SECTIONS>
        <blockquote><input type="radio" name="subSection" value="<TMPL_VAR NAME=SUB_SECTION_NAME>" /><TMPL_VAR NAME=SUB_SECTION_NAME></blockquote>
    </TMPL_LOOP>
    
</TMPL_LOOP>