%b = map { defined ? ($_ => 1) : () } @a;