my $y= do { use integer; $x+0 };