不能在perl中定义其值不能在子例程中更改的变量？

在以下脚本中，我@basearray在主程序中声明和修改。在dosomething子例程中，我访问@basearray，将其分配给脚本本地的数组，然后修改本地副本。因为我一直在小心地只更改子例程中局部变量的值，@basearray所以不能更改。

但是，如果我在给@basearray子例程中分配一个值时犯了一个错误，它将被更改，并且该值在调用子例程后仍将保留。

这在第二个子例程中演示doagain。

另外，doagain将引用\@basearray作为参数接收，而不是@basearray直接访问。但是，要解决该额外的麻烦并不能提供额外的安全性。为什么要那样做呢？

有没有办法保证我不会@basearray在任何子程序中无意中进行更改？任何一种硬质安全设备，我可以建设成我的代码，类似于use strict;一些组合也许是my和local？

我是否认为答案是否定是正确的，并且唯一的解决方案是不要犯粗心大意的程序员错误？

#!/usr/bin/perl
use strict; use warnings;
my @basearray = qw / amoeba /;
my $count;

{
    print "\@basearray==\n"; 
    $count = 0; 
    foreach my $el (@basearray) { $count++; print "$count:\t$el\n" };
}

sub dosomething 
{
    my $sb_name = (caller(0))[3];
    print "entered $sb_name\n";
    my @sb_array=( @basearray , 'dog' );
    {
        print "\@sb_array==\n"; 
        $count = 0; 
        foreach my $el (@sb_array) { $count++; print "$count:\t$el\n" };
    }
    print "return from $sb_name\n";
}

dosomething();
@basearray = ( @basearray, 'rats' );

{
    print "\@basearray==\n"; 
    $count = 0; 
    foreach my $el (@basearray) { $count++; print "$count:\t$el\n" };
}


sub doagain
{
    my $sb_name = (caller(0))[3];
    print "entered $sb_name\n";
    my $sf_array=$_[0];
    my @sb_array=@$sf_array;
    @sb_array=( @sb_array, "piglets ... influenza" );
    {
        print "\@sb_array==\n"; 
        $count = 0; 
        foreach my $el (@sb_array) { $count++; print "$count:\t$el\n" };
    }
    print "now we demonstrate that passing an array as an argument to a subroutine does not protect it from being globally changed by programmer error\n";
    @basearray = ( @sb_array );
    print "return from $sb_name\n";
}
doagain( \@basearray );

{
    print "\@basearray==\n"; 
    $count = 0; 
    foreach my $el (@basearray) { $count++; print "$count:\t$el\n" };
}