\nuse strict;\nopen (IN,"file.dat") or die "Can't open file - $!";\nmy %hash;\nwhile (<IN>){\n chomp;\n my ($key,$data) = split(' ',$_,2);\n $hash{$key} = $data;\n}\nclose (IN);\n