# 1 
while ( defined( my $line = <$handle> ) ) {

  # 2
  my ( $key, $value ) = split m{=}, $line;

  # 3
  $hash{$key} = $value;
}
# 4
chomp(%hash);