open(INFO1, ">", $file) or die "Couldn't open: $!\n";