Select Code to Download

    sub group {
        my $n = shift;
        map [ @_[$_*$n .. $_*$n + $n - 1] ] => 0 .. $#_ / $n;
    }

    for (group(3, @dynval3)) {
        my ($newname, $name, $val) = @$_;
        ...
    }