push (@Cdevices, $UnitID, $fileno);
push (@Mdevices, \@Cdevices);
for ($k=0; $k<=$#Mdevices; $k++)
  {
    print $Mdevices[$k][0],"\n";
  }
  $k=0;