sub foo
{
    my ($hash, @path) = @_;
    while (my ($k, $v) = each %$hash) {
        if (ref $v eq 'HASH') {
            foo($v, @path, $k);
        } else {
            # whatever
        }
    }
}

##</code><code>##

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