sub handleRefs
{
    my ($target, $keys_ar) = @_;
    if (ref $target eq "HASH") {
        foreach my $key(keys %$target) {
            handleHashOrElement($target->{$key},[@$keys_ar,$key]);
        }
        return;
    }

    if (ref $target eq "ARRAY") {
	print "ARRAY at @$keys_ar is [ @$target ]\n";
	return;
    }

    print "Value at @$keys_ar is $target\n";
}

handleRefs(\%rez, []);