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

my %foo;
foreach $foo{zaehler} (0..10) {
	test (\%foo);
}
sub test {
	my ($bar) = @_;
	print "habe " . $bar -> {zaehler} . "\n";
}