$PDL::IO::Misc::colsep = ",";
($mid, $cid, $var)=rcols "$filename";