my %person = map { chomp; $_ => 1 } <DATA>;