for (@f) { $_ = 0 unless defined }