sub foo {
  while (my ($var, $val) = splice @_, 0, 2) {
    print "$var => $val\n";
  }
}