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>|;
  }
}


##</code><code>##

my $v = lc($image_align_top);

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

...