Select Code to Download

$x = ~ /regex/;
%hash = map { "\L$_", 1 } @array;

$hash1 = { a => 1 };
$hash1{b} = 2;
# $hash1{a} == 1, right?  No?

foreach (@foo_list) {
    my $x = "blah $_ blah";
...
    }
    more_with( $foo );
}