DB<107> my @y; { 
           my $z;
           @y =  map { $z += $_ } @x;
          }
 => (1, 3, 6, 10)

  DB<109> my @y = do { my $z; map { $z += $_ } @x }
 => (1, 3, 6, 10)