############################################################
sub print_total_by_state {
############################################################
	my ($data_ref) = @_;
	
	my %cache;
	my $total = 0;
	
	foreach (values %$data_ref) {
		foreach my $state (keys %$_) {
			$cache{$state} += $_->{$state};
			$total += $_->{$state};
		}
	}
	
        print "<tr>\n";
        print "\t<td>Total by State</td>\n";
        foreach my $state (keys %cache) {
            print "\t<td>", $cache{$state}, "</td>\n";
        }
        print "\t<td>$total</td>\n";
        print "</tr>\n";
}