my %top_align = qw( Left left Center center Right right );

foreach my $k ( keys( %top_align ) ) {
  my $checked = ($image_align_top eq $top_align{$k}) ? ' checked' : ''
+;
  print qq|<td>
            <div align="center">
              $k <input type="radio" name="image_align_top" value="$to
+p_align{$k}"$checked>
            </div>
           </td>|;
}
[download]

The other method would be to use an HTML generating module like CGI