open( my $data_fh, ">", $file2 )
      or die "Could not open [$file2] [$!]";

##</code><code>##

 open( my $data_fh, "<", $file2 )
      or die "Could not open [$file2] [$!]";