#!/usr/bin/perl -w
use strict;
use warnings;

my %foo = (
    test    => {
        alpha   => 'beta',
        gamma   => 'delta',
    },
);
foreach $foo{zaehler} (keys %{$foo{test}}) {
    test (\%foo);
}
sub test {
    my ($bar) = @_;
    print "habe " . $bar -> {zaehler} . "\n";
}