Re: Dereference anonymous AoA

[ikegami]

my $table = [
   [
      'kept', 82
   ],
   [
      'notkept', 1
   ],
   [
      'repaired', 3
   ]
];

for my $i ( 0 .. $#{ $table } )     # Iterates over the indexes.
{
   say "label ". $table->[$i][0];
}

or

for my $row ( @{ $table } )         # Iterates over the values.
{
   say "label ". $row->[0];
}