in reply to Add part of one hash to another

If you just want to omit that field, you could read File B like this: 
while ( <TEXTFILE> ) {
    $csv->parse($_);
    push @H_USES, [ ($csv->fields)[0, 2..10] ]; # or whatever the numb
+er of fields in the file
}

[download]
Looks a bit simple ... have I understood the problem correctly? :)

Replies are listed 'Best First'.
Re^2: Add part of one hash to another
by batrams (Novice) on Feb 26, 2013 at 16:04 UTC

    >Looks a bit simple ... have I understood the problem correctly? :)

    Hi - I need the complete data from File B for other things later in the program, but both of the responses provided me with valuable examples and I appreciate all the help!
[reply]
      I need the complete data from File B for other things later in the program
      Here is another way which may help: 
      # 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

      [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom