#! perl
use strict;
use warnings;
use Data::Dump;

my %h = map { $_ => 0 } qw(kept notkept repaired);
my $a =
[
    [ 'kept',     '1', ],
    [ 'repaired', '3', ],
];

dd   \%h;
%h = (%h, map { $_->[0] => $_ ->[1] } @$a);
dd   \%h;