#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';

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

say Dumper $aref;

foreach my $i ( @{ $aref } )
{
   say "label ". $aref->[$i][0];
}