#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Fcntl qw(:DEFAULT :flock);
use Date::Calc;
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)]; 
};
system 'cls';


my $test = {
    foo     => {
        bar     => {
            baz     => {
                alf     => {
                    datei   => [2,4,6],
                },
            },
        },
    },
};

my $ast = $test->{foo}{barion}{und};
if (defined $ast) { say "check"; }

say "Autovivification Gegenprobe:\n".Dumper($test);