in reply to Re^4: no uninitialized warnings
in thread no uninitialized warnings

Or non-destructively and unambiguously:

print join " ", map { defined() ? "'\Q$_\E'" : 'undef' } $var1, $var2,
+ $var3;

[download]

Makeshifts last the longest.

In Section Seekers of Perl Wisdom