#!/bin/perl5

use strict;
use warnings;
use HTML::Template;

my @m_options = (
  {name => q{one},   type => q{a}},
  {name => q{two},   type => q{b}},
  {name => q{three}, type => q{c}},
  {name => q{four},  type => q{a}},
  {name => q{five},  type => q{b}},
  {name => q{six},   type => q{c}},
  {name => q{seven}, type => q{a}},
  {name => q{eight}, type => q{b}},
  {name => q{nine},  type => q{c}},
);

my @tmpl = <DATA>;
my $t = HTML::Template->new(arrayref => \@tmpl);
$t->param(
  {
    M_OPTIONS => \@m_options
  }
);
print $t->output;

__DATA__
<TMPL_LOOP M_OPTIONS>
name: <TMPL_VAR "name">
type: <TMPL_VAR "type">
</TMPL_LOOP>