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

##</code><code>##

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