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

##</code><code>##

	my $tableHeader = tableHeader(@tableHeader);

##</code><code>##

sub tableHeader {
	my @tableHeader = $_[0];
	my $rows;
	my %tempHash;
	foreach my $i (@tableHeader) {
		if ($i eq 'nw') { 
			push @{$rows}, {columnHeader => 'Networth'} 
		}
		elsif ($i eq 'hl') { 
			push @{$rows}, {columnHeader => 'Heavy Lasers'}
		}
		elsif ($i eq 'offPts') { 
			push @{$rows}, {columnHeader => 'Off. Pts'}
		}
		elsif ($i eq 'defPts') { 
			push @{$rows}, {columnHeader => 'Def. Pts'}
		}
		elsif ($i eq 'last_updated') { 
			push @{$rows}, {columnHeader => 'Updated'}
		}
		else {
			$tempHash{'columnHeader'} = capitalize($i);
			push @{$rows}, {columnHeader => $i}
		}
	}
	return $rows;
}

##</code><code>##

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