#!/usr/bin/perl -l

use strict;
use warnings;

my ($a, $b, $c, $d) = ('a' .. 'd');

my %obiekt;
push @{$obiekt{$a}{$b}}, [$c,$d];

use Data::Dump 'dd'; dd \%obiekt;

print $obiekt{$a}{$b}[0][0];
print $obiekt{$a}{$b}[0][1];