my %hash;
while (<SOME_FILE>) {
  chomp;
  my ($k, $v) = split /\s+/, $_, 2;
  $hash{$k} = $v;
}