my $coy = [ 1, 2];
my @coy = @$coy;
$coy[1] = 666;
use Data::Dumper;
die Dumper( $coy, \@coy );
__END__
$VAR1 = [
          1,
          2
        ];
$VAR2 = [
          1,
          666
        ];