Not to try and throw you in over your head, but if the context of your program is more related to set operations than to array properties, you may want to have a look at Set::Scalar. This module will allow you do something as simple as:

use Set::Scalar ;

my $s = Set::Scalar->new( 'a', 'b', 'c', 'd' ) ;
my $t = Set::Scalar->new( 'a', 'e', 'c', 'o' ) ;

my $u = $s->intersection( $t ) ;

print $u, "\n" ;
[download]

And the output:

(a c)
[download]

_______________
D a m n D i r t y A p e
Home Node | Email