open (IN, "filename.txt") or die "can't open filename.txt!";
while ( $line = <IN> ) {
  @parts = split /___/, $line;
  $name = $pts[0];
  $address = $pts[1];
  $hash{$name} = $address;
}
close IN;