my @Mdevices ;
  while (... something ...) {
    ... do something to get $UnitID & $fileno ...

    ... do some other stuff ...

    push (@Mdevices, [$UnitID, $fileno]);
  } ;