use DB_File;
  my %hash = tie(...., 'DB_File'....);
  my $fh   = something_to_open_the_file(...);

  while (my $addr = <$fh>) {
    chomp($addr);
    $hash{lc($addr)} = 1;
  }