$_ = join ' ', sort @$_  for values %rev_hash;

my %inv_hash;
while(my ($k, $v) = each %rev_hash) {
    push @{$inv_hash{$v}}, $k;
}