for ([qw(key1 val1)],[qw(key2 val2)],....) {
  my $key=$_->[0];
  my $val=$_->[1];
  ...
}