my $var = "xxx\n";
my $var="zzz\n" unless defined($var);
print $var;