# kein use strict; diesmal

$global = "Ich bin global.\n";
funkt1();
print "\nMain:\n";
foreach $var ($global, $my_local, $local_local) 
  { print $var if (defined $var); }

sub funkt1 
  {
  my $my_local = "Ich bin my-lokal.\n";
  local $local_local = "Ich bin  local-lokal.\n";

  print "\nfunkt1:\n";
  foreach $var ($global, $my_local, $local_local) 
    { print $var if (defined $var); }
  funkt2();
  }

sub funkt2 
  {
  print "\nfunkt2: \n";
  foreach $var ($global, $my_local, $local_local) 
    { print $var if (defined $var); }
  }