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

my %myhash; my $var;  # <- $var soll global sein!
$myhash{'foo'} = "bar";

foreach $var (keys %myhash) {
	&mysub;
}

sub mysub {
	print "$var\n";  # <-- Wieso undef?
}