#!/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?
}

subroutine($variable);

sub subroutine {
  my $arg = shift;

  print "$arg\n";
}

#!/usr/bin/perl

use strict;
use warnings; 

my %myhash; 
my $var = "qiz";  # <- $var soll global sein!

$myhash{'foo'} = "bar";

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

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