$depth = compute_hash_depth; $code = '...'; for (reverse 1..$depth) { my $prev = $_-1; $code = "while (my (\$k$_, \$v$_) = each \$v$prev) { $code }"; } eval $code;