my @c = do { my %tmp = map { $_ => 1 } @a; grep {$tmp{$_}} @b };