my %rev;
while( my( $key, $val) = each %hash ) {
  $rev{$val} .= "|$key";
}