open my $file4In, '<', $fileName or die "Could not open $filename: $!\n";