my(%count, $total);
while (<FILE>) {
  chomp;
  my @fields = split /;/;
  my %seen;
  $seen{$_}++ for @fields;
  my $target = $fields[12];
  $count{$.} = $seen{$target};
  $total += $seen{$target};
}