my $zwei = sub {
  print $var, "\n";
};
$zwei->();