Hash slices can be handy here. I am using the example arrays from the categorized answer How can I find the union/difference/intersection of two arrays? Just replace @simpsons and @females with your arrays.

my @simpsons=("homer","bart","marge","maggie","lisa");
my @females=("lisa","marge","maggie","maude");
my %simpsons_hash;
@simpsons_hash{@simpsons} = @simpsons;
@female_simpsons = grep {$_} @simpsons_hash{@females};
[download]

HTH.