my %b = map { $_ => 1 } @a;