use FileHandle;
my $fh = new FileHandle;
my @input_file2;
tie @input_file2, 'Tie::File', \$fh, or die "Problem tying file $input_file2: $!"; 

##</code><code>##

usage: tie @array, Tie::File, filename, [option => value]... at ./SS7Merge line 42

##</code><code>##

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

##</code><code>##

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: $!";