Select Code to Download

sub foo {
        my $array = shift;
...
        ... Changes in $copy won't affect $array ...
        return $copy;
    }

sub foo {
        my $array = shift;
...
        ... Changes in @copy won't affect @array ...
        return \@copy;
    }