my $x = 1 if $y;
my $z if 0;
local $w = 1 if $y;
my %h = (if => 1);
my @a = map { $_ if 1 } @b;
our $q = 2 unless $r;
my ($a, $b) = (1, 2) for 1;
my $c = $o->if;