In that case, you can use a loop instead:

$b{$_} = 1 for grep defined, @a;
[download]