my %rev;
while ((undef, my $value) = each %forward) {
  $rev{$_} = 1;
}