%b = map { $_ => 1 }
     grep defined, @a;