USING H::T
<input type="checkbox" name="typeofinfo" value="1" <tmpl_if type1>checked </tmpl_if>/> Program<br />
<input type="checkbox" name="typeofinfo" value="2" <tmpl_if type2>checked </tmpl_if>/> Abstracts<br />

PERL:
{
no strict 'subs';
   for my $i (0 .. $#$typeofinfo) {
      $template -> param( type.$typeofinfo->[$i] => 1 )
   }
}
print $template->output;