for (1 ..5) {
    push (@Cdevices, "UnitId$_", $_);
    push (@Mdevices, \@Cdevices);
}

print $_->[0], "\n" for @Mdevices;