$x = undef; my $a=($x // warn 'RHS evaluated'); say $a;