c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -e
"my ($a, $b, $c, $d) = ('a' .. 'd');
 ;;
 my %obiekt;
 ;;
 push @{$obiekt{$a}{$b}}, [$c,$d];
 dd \%obiekt;
 print qq{\n};
 ;;
 dd $obiekt{$a};
 print qq{$obiekt{$a} \n\n};
 ;;
 dd $obiekt{$a}{$b};
 print qq{$obiekt{$a}{$b} \n\n};
 ;;
 dd $obiekt{$a}{$b}[0];
 print qq{$obiekt{$a}{$b}[0] \n\n};
 ;;
 print qq{>$obiekt{$a}{$b}[0][0]< >$obiekt{$a}{$b}[0][1]<};
"
{ a => { b => [["c", "d"]] } }

{ b => [["c", "d"]] }
HASH(0x216fa0)

[["c", "d"]]
ARRAY(0x216fdc)

["c", "d"]
ARRAY(0x21700c)

>c< >d<