my $x = 2; { my $x = 3 * $x; # $x == 6 } # $x == 2 #### (@$_ = keys %foo) == 1 or die "Got more than one: @$_\n" for \my @v;