use strict;
use warnings;
 
$a=0;
 
if ($a) {
  my $z=666;
}
 
my $y=666 if $a;
 
print $y;         # -> nothing
print $z;         # -> Global symbol "$z" requires explicit package name