for $Mx qw(M1 M2 M3 M4 M5 M6 M7 M8) {
   ...
   $PinName{$Mx} = ...;
   $LayerName{$Mx} = ...;
   ...
}