open ($TEXTIN, "<", $input2) || die "Can not open $input2: $!\n";