my ($fhout) = @_;