How about this?

use List::Compare;
use Data::Dumper;
s/\A\s+|\s+\z//g for @array1, @array2;
my $lc = List::Compare->new(\@array1, \@array2);
my @i = $lc->get_intersection();
print Data::Dumper->Dump([\@i]);
[download]