#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
#---------------
my $lokal_config = sub { my ($c) = @_; $c->{foo}='bar'; };
my %lokal;
&$lokal_config(\%lokal);
say keys %lokal;
#---------------
my %test = (foo => sub { my ($c) = @_; $c->{foo2}='bar'; });
my %lokal2;
$test{foo}(\%lokal2);
say keys %lokal2;