my $table = [ [ 'kept', 82 ], [ 'notkept', 1 ], [ 'repaired', 3 ] ]; for my $i ( 0 .. $#{ $table } ) # Iterates over the indexes. { say "label ". $table->[$i][0]; } #### for my $row ( @{ $table } ) # Iterates over the values. { say "label ". $row->[0]; }