push(@output5b, $outputb);
           
           for (@output5b) { s/^0$/1/};