while (@dynval3) { # warning, eats it up
  my ($newname, $name, $val) = splice @dynval3, 0, 3;
  ...
}