while(<FILE>)
{
  $d=$_;
  $read.=$d;

 my ($key, $val) = split /\n/, $read;
  $hash{$key}= $val;