#!/usr/bin/perl -w
use strict;
use CGI qw(:standard);
use HTML::Template;

my $template = new HTML::Template (filehandle => \*DATA);
my @radio_btns = radio_group(-name=>'type', -value=>[ 1 .. 12 ]);

$template->param(type.($_ + 1) => $radio_btns[$_]) for (0 .. $#radio_btns);

print $template->output;

__DATA__
<TMPL_VAR NAME="type1">
<TMPL_VAR NAME="type2">
<TMPL_VAR NAME="type3">
<TMPL_VAR NAME="type4">
<TMPL_VAR NAME="type5">
<TMPL_VAR NAME="type6">
<TMPL_VAR NAME="type7">
<TMPL_VAR NAME="type8">
<TMPL_VAR NAME="type9">
<TMPL_VAR NAME="type10">
<TMPL_VAR NAME="type11">
<TMPL_VAR NAME="type12">