当我使用以下代码时，它可以正常工作：
#!/usr/bin/perl
use strict;
use Data::Dumper;
use Array::Utils qw(:all);
my @a = (1,2,3,4,5,6);
my @b = (1,2,3,4,7,8,9,10);
my @c = (2,1,4,3,6,5);
print "a: ".Dumper(@a)."\n";
print "b: ".Dumper(@b)."\n";
print "c: ".Dumper(@c)."\n";
print "a-b: ".Dumper(array_minus(@a, @b))."\n";
#print "b-a: ".Dumper(array_minus(@b, @a))."\n";
#print "c-b: ".Dumper(array_minus(@c, @b))."\n";
#print "b-c: ".Dumper(array_minus(@b, @c))."\n";
#print "a-c: ".Dumper(array_minus(@a, @c))."\n";
print "c-a: ".Dumper(array_minus(@c, @a))."\n";
print "c in a: ".Dumper(intersect(@c, @a))."\n";
但是，当我对数组代码使用这种类型的声明不起作用时：
#!/usr/bin/perl
use strict;
use Data::Dumper;
use Array::Utils qw(:all);
my @a = [1,2,3,4,5,6];
my @b = [1,2,3,4,7,8,9,10];
my @c = …