sub closure {
  my $abc = shift;   
  $rs_increment = sub {$abc++};    
  $rs_abc       = sub {$abc}  ;    
  print "Innen: ", &$rs_abc , "\n"; 
  ($rs_increment, $rs_abc);
}


($inc, $fetch) = closure(10);      #> Innen: 10
($inc2, $fetch2) = closure(20);  #> Innen: 20

&$inc;
&$inc;
&$inc;

print "Aussen: ",&$fetch;           #> Aussen: 13
print "Aussen: ",&$fetch2;         #> Aussen: 20