open ALLLOG, ">$ark2" or die "Unable to open $ark2: $!"; 
open SLOG, "$ark3" or die "Unable to open $ark3: $!";