Select Code to Download

#! perl
use strict;
...
dd   \%h;
%h = (%h, map { $_->[0] => $_ ->[1] } @$a);
dd   \%h;

 0:16 >perl 1022_SoPW.pl
{ kept => 0, notkept => 0, repaired => 0 }
{ kept => 1, notkept => 0, repaired => 3 }

 0:16 >

# Overwrite defaults with arrayref

...
        }
    }
}