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