my %a = map { ($_, 1) } @a;
@c = grep $a{$_}, @b;