Select Code to Download

my $x = 2;
{
...
    # $x == 6
}
# $x == 2

(@$_ = keys %foo) == 1 or die "Got more than one: @$_\n" for \my @v;