+ print $fh "</td>\n";
+ }
+ print $fh qq( </tr>\n <tr class="counter">\n);
+ for (@order)
+ {
+ my ($num, $abbr, $name) = @$_;
+ my $sum = $data->{$abbr}[0] + $data->{$abbr}[1] + $data->{$abbr}[2] + $data->{$abbr}[3];
+ my $pct = sprintf ("%.1f", (100 * $sum / $total));
+ print $fh qq( <td class="counter $abbr">$pct%</td>\n);