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