Select Code to Download

    my @checkedOptions = qw(team rank land networth strat updated mari
+ne fighter bomber panzer hl seal pds offPts defPts turns);
my @tableHeaders;
    foreach my $i (@checkedOptions) {
        push @tableHeader, $i;
    }

    my $tableHeader = tableHeader(@tableHeader);

sub tableHeader {
    my @tableHeader = $_[0];
...
    }
    return $rows;
}

    <TMPL_LOOP NAME=tableHeader>
        <td align=center valign=middle><B>&nbsp;<TMPL_VAR NAME=columnH
+eader>&nbsp;</B><TD>
    </TMPL_LOOP>