open(IN, "<name_file")

or die "Couldn't open file for processing: $!";

while (<IN>) {

chomp;

$hash_table{$_} = 0;

}

close IN;

print "$_ = $hash_table{$_}n" foreach keys %hash_table;