#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;

# Defaults
my @t = (
   {
      'label' => 'kept',
      'value' => '0',
   },
   {
      'label' => 'notkept',
      'value' => '0',
   },
   {
      'label' => 'repaired',
      'value' => '0',
   },
);

# Get this from another sub
my $a = [
   [ 'kept', '1', ],
   [ 'repaired', '3' ]
];

# Overwrite defaults with arrayref
for my $i ( @{ $a } )
{
   for my $t ( @t )
   {
      if ( $i->[0] eq $t->{label} )
      {
         $t->{value} = $i->[1];
      }
   }
}

warn Dumper( \$a );
warn Dumper( \@t );