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