Select Code to Download

   DB<104> @x=1..4
 => (1, 2, 3, 4)
...

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

  DB<107> my @y; { 
           my $z;
...

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