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

##</code><code>##

   foreach $zone (@Zonelist) {

      @cmmd = split(/ /,$zone);
      print "Updating Flag @cmmd[0] from @cmmd[1]to @cmmd[2]";

   }