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