if ($key == 48)
  {
    my %msg48;
    while(<FH>){
      chomp;
      ($key48, $val48) = split /=>/;
      $msg48{$key48} = $val48;
    }
    $msg{$key}=\%msg48;
  }
  else{
    $msg{$key} = $val;
  }