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

for my $device (@Mdevices) {
    print $device->[0], "\n";
}