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