my %HashB = map { ($_ => 1) } @ArrayB;
@ArrayA = grep { $HashB{$_} } @ArrayA;