#!/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',
   },
);

# Create another structure (hash) to access the same data in a faster way
my %faster_access;
for my $valref (@t) {
      $faster_access{$valref->{'label'}} = $valref;
}

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

# Overwrite defaults 

for my $i ( @{ $a } ) {
     $faster_access{$i->[0]}{value} = $i->[1];
}

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

##</code><code>##

$ perl defaults.pl
$ perl  defaults.pl
$VAR1 = \[
            [
              'kept',
              '1'
            ],
            [
              'repaired',
              '3'
            ]
          ];
$VAR1 = [
          {
            'value' => '1',
            'label' => 'kept'
          },
          {
            'value' => '0',
            'label' => 'notkept'
          },
          {
            'value' => '3',
            'label' => 'repaired'
          }
        ];