use strict;

use HTML::Template;

my @names = qw(name1 name2 name3);
my @gpas  = qw(4 2 3);

my @struct;
for (0..$#names) {

        push @struct, {
                NAME => @names[$_],
                GPA  => @gpas[$_],
        };
}


my $template = HTML::Template->new(filename => 'template');
$template->param(STUDENT => \@struct);
print $template->output;

<!-- template file -->
<TMPL_LOOP NAME=STUDENT>
    Name: <TMPL_VAR NAME=NAME><br>
    GPA:  <TMPL_VAR NAME=GPA><p>
</TMPL_LOOP>