my %hash;
{
  my @kv = (k0, v0, k1, v1, ...);
  while (@kv) {
    (my $k, my $v, @kv) = @kv;
    $hash{$k} = $v;
  }
}