Select Code to Download

# open your file 1 as $IN1...
my %hash_file_1;
while (<$IN1>) {
...
          }
     }
}

# open your file 1 as $IN1...
my %hash_file_1;
...
          $value .= $_;
     }
}

sub read_entry {
     my $FH = shift;
...
          push @value_arr, $_;
     }
}