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