Select Code to Download

my @x = 1 .. 5;
sub get_x { @x }
...
    $v *= 2;
}
print "@x\n";

while (my ($k, $v) = each %hash) {
    $hash{ $k . 'a' } = 1;
...
foreach my $k (keys %hash) {
    $hash{ $k . 'a' } = 1;
}