my ($mnum,$mname) = split(/ /,$mdata,2);