Select Code to Download

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

  my @Mdevices ;
  my @Cdevices ;
...

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

  my @Mdevices ;
  while (... something ...) {
...

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

  my @Mdevices ;
  while (... something ...) {
...

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