$_ = '[undef]' for grep !defined, $var1, $var2, $var3;
print "$var1, $var2, $var3";

##</code><code>##

use Data::Dumper;
print Data::Dumper->Dump([$var1, $var2, $var3], [qw(var1 var2 var3)]);