#!perl -w
use strict;
my $var = "111";
$var = undef;
print $var;