my %b_hash = map { $_ => 1 } @b_array;
    my @new_array = grep $b_hash{$_}, @a_array;