#!/usr/bin/perl

open FH, "<data.txt";

%total;
%counts;
%examples;

sub code {
  my @ah = split("",$_[0]);
  my $ans = 0;
  for $i (0..3) {
    for ($j = $i + 1; $j < 5; $j++) {
      $ans = 2 * $ans + ($ah[$i] eq $ah[$j]);
    }
  }
  return $ans;
}

$line = 0;

foreach (<FH>) {
  $line++;
  chomp;
  /^(.....) \= (.*)/;
  $word = $1;
  $num = $2;
  $code = code($word);
  $total{$code} += $num;
  $counts{$code} += 1;

  if (length $examples{$code} < 60) {
    $examples{$code} .= "$word ";
  }

  if ($line % 10000 == 0) {
    print STDERR join " ", $line, $counts{$code}, $examples{$code}, "\n";
  }
}

foreach (keys %total) {
  print join " ", $total{$_}, $counts{$_}, $_, $examples{$_}, "\n";
}

close FH;