Without rewriting code to use CGI!!!, create an array of keys in the order you want them to be processed, and use that:

my @sorted_keys = qw(Left Center Right);

for (@sorted_keys) {
  my $k = $_;
  my $v = $top_align{$k};
 
  if ($image_align_top eq $v) {
            print qq|<td>
                      <div align="center">
                        $k <input type="radio" name="image_align_top" 
+value="$v" checked>
                      </div>
                    </td>|;
  }
  else {
            print qq|<td>
                      <div align="center">
                        $k <input type="radio" name="image_align_top" 
+value="$v">
                      </div>
                    </td>|;
  }
}
[download]

And forget the loop altogether...

cLive ;-)

ps - looking at it again, why not do something like this instead:

my $v = lc($image_align_top);

if ($v =~ /^left|center|right$/) {

...
[download]

--
seek(JOB,$$LA,0);