Select Code to Download

my $scalar;
foreach ($scalar) {
    print "\$scalar = $_\n";
}
print "_END_\n";

$scalar = 
_END_

my @array
foreach (@array) {
    print "\$array[x] = $_\n";
}
print "_END_\n";

my @array
$array[0]    =    "";
...
    print "\$array[x] = $_\n";
}
print "_END_\n";

$array[x] = 
_END_

my @array
$array[0]    =    "";
...
    print "\$array[x] = $_\n";
}
print "_END_\n";

$array[x] = 
$array[x] = foo
_END_