tie my @input_file2, 'Tie::File', $input_file2
   or die "Problem tying file $input_file2: $!";