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

for my $ref(@dynval3) {
    # access examples
    print "@$ref\n";
    my ( $a, $b, $c ) = @$ref;
    print "$a $b $c\n";
    print "Field 1 is: ", $ref->[1], "\n\n";
}