while (my ($key, $value) = each(%href)) {
          print "$key, (@{$value})\n";
   }