#!/usr/bin/perl

%tridata;
%bidata;

foreach (<>) {
  chomp;
  ($year, $race, $gender, $name, $count, $rank) = split "\t";
  $tridata{$year}{$race}{$gender} += $count;
  $bidata{$year}{$race} += $count;
}

foreach $foo (sort keys %tridata) {
  foreach $bar (sort keys %{$tridata{$foo}}) {
    print join "\t", $foo, $bar, "_BOTH_", $bidata{$foo}{$bar}, "\n";
    foreach $baz (sort keys %{$tridata{$foo}{$bar}}) {
      print join "\t", $foo, $bar, $baz, $tridata{$foo}{$bar}{$baz}, "\n";
    }
  }
}