my @dynval3 = (
               [qw/Version          obVersion         0x0204/],
               [qw/Stat             obStat            0x04b4/],
               [qw/Mode             obMode            0x0020/],
               [qw/Regulation       obRegulation      0x0014/],
               [qw/Scheduler        obScheduler       0x0001/],
);

for my $aref (@dynval3) {
  my ( $newname, $name, $val ) = @$aref;
  change_value( $newname, $name, $val );
}