#! /usr/bin/perl use strict; use warnings; use Data::Dumper; # hier definieren wir die Datenstruktur my $data = { foo => {}, }; my $var = $data->{foo}{bar}{baz}{barum} // 'not defined'; print "var: $var\n"; # und hier kontrollieren wir die Datenstruktur nochmal: print Data::Dumper->new( [ $data ], '*data' )->Sortkeys(1)->Dump();