while (@keys and @values) {
  $hash{shift @keys} = shift @values;
}