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

pop @array1;
print "@array2\n";

pop @array2;
print "@array1\n"

##</code><code>##

sub foo {
    my ($ref) = @_;
    local *nonref = $ref;

    pop @nonref;
    print "@$ref\n";

    pop @$ref;
    print "@nonref\n";
}

foo([ 0 .. 9 ]);