Select Code to Download

for (my $i=0; $i<$#dynval3; $i+=3) {
    my ( $a, $b, $c ) = @dynval3[$i..$i+2];  # shorthand slice idiom i
+nstead of $ary[$i], $ary[$i+1],...
    print "$a|$b|$c\n";
}

my @dynval3 = ( 
    [ 'Version', 'obVersion', '0x0204' ],
...
    print "$a $b $c\n";
    print "Field 1 is: ", $ref->[1], "\n\n";
}