use strict;
use warnings;


my $y=666 if 1;

warn $y;


my $x=1;

my $x=42 for 1;

warn $x;