sub irgendwas {
  our $var = 20;
  print $var; # ok
}
print $var; # geht nicht
print $main::var; geht