Select Code to Download

  @Zonelist = ("@WGLZAL","@WGLZAU","@WGLZBL","@WGLZBU",
               "@WGLZCL","@WGLZCU","@WGLZDL","@WGLZDU");

   foreach $zone (@Zonelist) {

...
      print "Updating Flag @cmmd[0] from @cmmd[1]to @cmmd[2]";

   }