open my $fh, '+<', $input_file2
  or die "Problem opening file $input_file2: $!";
tie my @input_file2, 'Tie::File', $fh
  or die "Problem tying file $input_file2: $!";