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