my %seen;
my @filtered = grep !$seen{$_}++, @arr2;

##</code><code>##

my %seen;
my %in_arr1 = map { $_ => 1 } @arr1;
my @filtered = grep !$in_arr1{$_} || !$seen{$_}++, @arr2;