#################################
# reading data in from File A

 while ( <> ) {
    $csv->parse($_);
    push(@AoA, [$csv->fields]);
 }

# load up the hash
for my  $i ( 0 ..  $#AoA ) {

$HoA{$AoA[$i][5]} = $AoA[$i];

} # end looping over rows
#################################

##</code><code>##

#################################
# reading data in from File B
while ( <TEXTFILE> ) {
    $csv->parse($_);
    push(@H_USES, [$csv->fields]);
   }
close(TEXTFILE);
print "Done Loading USES Data\n";

# load up the hash
for my  $i ( 0 ..  $#H_USES ) {
$H_USES{$H_USES[$i][5]} = $H_USES[$i];
} # end looping over rows
#################################

##</code><code>##

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