#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
local $Data::Dumper::Purity;
$Data::Dumper::Purity = 1;
local $Data::Dumper::Useqq;
$Data::Dumper::Useqq = 1;
local $Data::Dumper::Deparse = 1;
$Data::Dumper::Deparse = 1;
local $Data::Dumper::Sortkeys;
$Data::Dumper::Sortkeys = sub {
    my ($hash) = @_;
    return [(sort {lc $a cmp lc $b} keys %$hash)]; 
};
use 5.010;

system 'cls';

require "./test_require3.pl";
 
my @dispatch = (
    {
        moduldatei      => "./test_require2.pl",
        aufruf_sub      => \&subname,
    },
);

my %varenv = (test1 => 'start');

my $href = $dispatch[0];
require $href->{moduldatei};
$href->{aufruf_sub}(\%varenv);

say Dumper(\%varenv);

#!/usr/bin/perl
use strict;
use warnings; no warnings 'void';

print "3 wird geladen: ".join(' ~ ',caller)."\n";

sub {
    my ($varenv) = @_;

    $varenv->{test3} = 'hier bin ich!';
    $varenv->{zeiger_geladen} = defined;
}