my $var1;
print $var1 .= 'r', "\n";
# prints r

my $var2 = '';
print $var2 .= 'r', "\n";
#prints r

my $var3 = 0;
print $var3 .= 'r', "\n";
#prints 0r