use strict; use Set::Scalar; my $set1 = Set::Scalar->new( @array1 ); my $set2 = Set::Scalar->new( @array2 ); my $set3 = $set1->difference( $set2 )->union( $set2->difference( $set1 ) ); my @array3 = $set3->members;