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

    push (@Cdevices, $UnitID, $fileno);

    ... do some other stuff ...

    push (@Mdevices, \@Cdevices);
  } ;