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