while (($key,$value) = each %hash) {
  push(@keys, $key);
  push(@values, $value);
}