#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;

my %hash = (
    strang1 => {
        string  => 'string foo1',
        hash    => {
            'key foo2' => 'value foo3',
        },
        array   => [
            'foo4 im Array0',
            'foo5 im Array1',
        ],
    },
);

print rekursive_hash_suche(\%hash,'foo');

sub rekursive_hash_suche {
    my ($ref,$suche) = @_;
    my %algo;
    $algo{SCALAR} = sub {
        my ($ref,$suche) = @_;
        my $fund = 0;
        $fund = 1 if $ref =~ /foo/;
        $fund;
    };
    $algo{ARRAY} = sub {
        my ($ref,$suche) = @_;
        my $fund = 0;
        foreach my $k (@$ref) {
            my $fund = $algo{ref($ref->{$k})}($ref,$suche);
            last if $fund;
        }
        $fund;
    };
    $algo{HASH} = sub {
        my ($ref,$suche) = @_;
        my $fund = 0;
        foreach my $k (keys %$ref) {
print "ref:".ref($ref->{$k})." in ".$ref->{$k}."\n";
            my $fund = $algo{ref($ref->{$k})}($ref,$suche);
            last if $fund;
        }
        $fund;
    };
    return $algo{HASH}($ref,$suche);
}