for (@output5b) { $_ = 1 if $_ == 0 }