##################################
# 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
##################################