Help for this page

Select Code to Download

Select or download this

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

Select or download this

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