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