Don't call each on an anonymous hash

From perldiag:

  each on anonymous %s will always start from the beginning
    (W syntax) You called each on an anonymous hash or array.  Since a
    new hash or array is created each time, each() will restart iterating
    over your hash or array every time.

Bug: #190
Bug-Debian: https://bugs.debian.org/1114492

Author: ntyni

lib/Pod/Simple/HTMLBatch.pm

@@ -717,12 +717,13 @@ sub _gen_css_wad {
   }
 
   # Now a few indexless variations:
-  for (my ($outfile, $variation) = each %{{
+  my %variations = (
       blkbluw => 'black_with_blue_on_white',
       whtpurk => 'white_with_purple_on_black',
       whtgrng => 'white_with_green_on_grey',
       grygrnw => 'grey_with_green_on_white',
-  }}) {
+  );
+  for (my ($outfile, $variation) = each %variations) {
     my $this_css = join "\n",
       "/* This file is autogenerated.  Do not edit.  $outfile */\n",
       "\@import url(\"./_$variation.css\");",