map { $_ = '' unless defined } values %$ref2; #### for (grep {not defined} values %$ref2) {$_ = q()};