while($line=<>) {
  ($key,$num1,$num2,$string,$num3,$stringnum) = split(/\s/,$line);
  $somehash{"$key"}{"$num1"}{"$num2"}{"$string"}{"$num3"}= $stringnum;
}