majdnem jo :)
Ne tombot, hanem tombreferenciat tarolj. Perlben a tombok flat-ek, vagyis ha egymas utan irsz ket tombot, akkor az valojaban egyetlen tombnek szamit.
#!/usr/bin/perl
my %kod = ( 'KEY1' => [ [ 1,2,3,4,5,6,7,8 ]
, [ 9,8,7,6,5,4,3,2 ] ]
, 'KEY2' => [ [ 1,2,3,4,5,6,7,8 ]
, [ 9,8,7,6,5,4,3,2 ] ] );
my @values = @{ $kod{ 'KEY1' }->[ 1 ] }; # A 8 elemű tömb
printf "%d\n", $#values;