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

##</code><code>##

my %hash = map { chomp; $_ => undef } <DATA>;