赋值@array = func(\@array)在perl中表现良好吗？

sub modify_array {
    my ($array_ref) = @_;
    
    # 对数组进行一些操作，例如排序
    @$array_ref = sort { $a <=> $b } @$array_ref;
}

my @original_array = (3, 1, 4, 1, 5, 9);
print "Original array: ", join(", ", @original_array), "\n";

modify_array(\@original_array);
print "Modified array: ", join(", ", @original_array), "\n";

sub safe_modify_array {
    my ($array_ref) = @_;
    
    # 创建一个副本进行操作
    my @copy = @$array_ref;
    @copy = sort { $a <=> $b } @copy;
    
    # 返回修改后的副本
    return \@copy;
}

my @original_array = (3, 1, 4, 1, 5, 9);
print "Original array: ", join(", ", @original_array), "\n";

my $modified_array_ref = safe_modify_array(\@original_array);
print "Modified array: ", join(", ", @$modified_array_ref), "\n";
print "Original array remains unchanged: ", join(", ", @original_array), "\n";