Select Code to Download

@array1 = 0..9;
*array2 = *array1;
...

pop @array2;
print "@array1\n"

sub foo {
    my ($ref) = @_;
...
}

foo([ 0 .. 9 ]);