my %revindex;
for my $revpair (map {
  [ $index{$_}, $_ ]
} keys(%index)) {
  push @{$revindex{$revpair->[0]}}, $revpair->[1];
}