# originally had paired data
my %dynval = qw { 
    
    obVersion         0x0204
    obStat            0x04b4 
    obMode            0x0020 
    obRegulation      0x0014 
    obScheduler       0x0001
    <lots more data ...>
}
# simple, can do this
while((my $name, my $val) = each(%dynval)) {
    set_value( $name, $val );
}

# new world with triplet data
# must keep the data line-by-line for easy viewing
my @dynval3 = qw ( 
    
    Version          obVersion         0x0204
    Stat             obStat            0x04b4 
    Mode             obMode            0x0020 
    Regulation       obRegulation      0x0014 
    Scheduler        obScheduler       0x0001
)

while ?? for ?? (@dynval3)
    change_value($newname, $name, $val);
}