##################################
# Add on File B's data
for my  $i ( 0 ..  $#H_USES ) {
$HoA{$H_USES[$i][5]} = [@{$H_USES[$i]}[0, 1, 3 .. $#{$H_USES[$i]}]];
} # end looping over rows
##################################

##</code><code>##

##################################
# Add on File B's data
for my  $i ( 0 ..  $#H_USES ) {
splice(@{$H_USES[$i]},2,1); # Eliminate 1 field at location 2
$HoA{$H_USES[$i][5]} = $H_USES[$i];
} # end looping over rows
##################################