# here is one of the million ugly ways of doing this. 
# The better way would be to use a templating system.
my @months = qw(03March 04April 05May 06June 07July);

print makeform();

sub makeform {
  my $form = "<select name='month' size='1'>\n";
  $form .= "<option value=''>Select a month</option>\n";
  for (@months) {
    $_ =~ /(\d\d)(.*)/;
    $form .= "<option value='" . $1 . "05'>" . $2 . "2005</option>\n";
  }
  $form .= "</select>\n";
  return $form;
}