$a and my $x =666;
print $x;        # -> nothing