my %hash;
while ( <DATA> ) {
    chomp;
    $hash{$_} = 1;
}