{
   my ($x,$j);
   aufruf ( sub { $x... }, sub { $j ...} );
}