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