use warnings;
my $var=1;
print $var unless $var eq undef;