my %remove;
$remove{$_}++ for @arr2;
@clean=grep !$remove{$_},@arr1;