# reading data in from File A
while ( <> ) {
	$csv->parse($_);
	push(@AoA, [$csv->fields]);
}

# reading data in from File B
while ( <TEXTFILE> ) {
	$csv->parse($_);
	my @fields = $csv->fields;
	push(@H_USES, [@fields]);
	# Make a copy of the fields
	my @array = @fields;
	# Make the new array same format as File A 
	splice(@array,2,1); # Remove Field 2 for example
	# Push the new array onto $AoA from File A 
	push(@AoA, [@array]);
}
close(TEXTFILE);
print "Done Loading USES Data\n";

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

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