@msgid=split /\000/, $data;
foreach $j (@msgid)
{ $mid($j}++; }