%seen = map { $_ => 1 } qw( some list );