% my ($x) = @_; % my @tab = $x->{'table'}; %# my $max_index = $#tab; %# for (my $i=0;$i<$max_index;$i++) %# { %= $tab[0][1][3] %# }