% my ($x) = @_; % my @tab = $x->{'tablica'}; %= ${$tab[0]}[0]