Obvious solution:
for (@experts) { $is_expert{$_} = 1; }
Related (faster) solution:
%is_expert = map {($_ => 1)} @experts;