如何从Perl中的数组中grep子步骤数组

Question

我有2个数组，其中一个数组是另一个数组的子集。想将子集数组中的元素除外的元素grep出来，但是我的代码不起作用。

@array = (a,b,c);
@array1 = (a,b,d,e,f,c,g,h,i);
foreach my $element (@array){
    @subset = grep!/$element/ , @array1;
}
print "@subset\n";

我想要的结果应该是

d e f g h i

但是我得到的是

a b d e f g h i

不确定我的代码出了什么问题。