my @set = ('A000','A123'..'A456','A999'..'B000','B789'..'B888');
my %elements;
@elements{@set} = (undef)x@set;