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

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

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