my %lookup = map { $_ => undef } @array;