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; }