$_ = '' for grep !defined, ($x,$y,$z); #### #!/usr/bin/perl -wT use strict; my ($x,$y,$z) = (undef,'hello',undef); # undef "clensing" idiom $_ = '' for grep !defined, ($x,$y,$z); print "x='$x' y='$y' z='$z'\n";