#!/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);