[perl] 关于perl中面向对象编程时，实例之间的比较

Johan_000

现在是这样的一个问题，因为是业务系统，涉及到NDA，这边不便放出数据结构，只能大致描述一下情况。
公司用Perl写那种非常裸的面向对象，然后我现在遇到这样的一个问题：
首先假设我通过某个方法获得了一个由对象实例构成的数组array_0，然后我通过另一个方法获得了另一个有对象实例构成的数组array_1，然后我想利用foreach、if和grep来筛选出array_0中不包含在array_1中的元素。
但是问题就出现了，由于这里的元素是对象实例，我并没有在Perl中处理过这种对象的比较，我不确定使用eq是不是可行，有没有Perl带手子能告知一下，或者说一下怎么在Perl中比较两个对象实例是不是相同。
大致代码如下：

my @array_0 = xxxxx;
my @array_1 = xxxxxxx;
foreach my $obj (@array_0) {
        if (grep {$_ eq $obj} @array_1) {      # 能这么写吗？
                balabalabala;
        }
}