my @days = (1..31);

my $days_select = '<select name="arrday"><option></option>';
for (@days) {
  if ($q->param('arrday') && $q->param('arrday') == $_) {
    $days_select .= "<option value=\"$_\" selected>$_</option>";
  }
  elsif ($base_vars{'day'} == $_ && $base_vars{'day'} > $q->param('arrday')) {
    $days_select .= "<option value=\"$_\" selected>$_</option>";
  }
  else {
    $days_select .= "<option value=\"$_\">$_</option>";
  }
}
$days_select .= '</select>';