Well, I am a little slow to think of this but using an array instead of a hash will solve the problem. Code is below.
TIA
jg

        my ($label, $value);
          my @top_align = qw(Left Center Right);
          while (@top_align) {
              $label = shift(@top_align);
              $value = $label;
              $value =~ tr/A-Z/a-z/;
              if ($value eq $image_align_top) {
                  print qq|<td>
                      <div align="center">
                        $label <input type="radio" name="image_align_t
+op" value="$value" checked>
                      </div>
                    </td>|;
            } else {
                print qq|<td>
                      <div align="center">
                        $label <input type="radio" name="image_align_t
+op" value="$value">
                      </div>
                    </td>|;
            }
        }
[download]

_____________________________________________________
It's not my tree.