my %row; while(<>) { chomp; my($key, $value) = split ' ', $_, 2 or next; $row{$key} = $value; }