This code really did the trick!

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

    ... do some other stuff ...

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

Thanks to all of you for help

Igor