foreach my $idx (qw( 7 9 11 )) {
  my $next = $idx + 1;

  if ( $slog[$idx] && $slog[$next] ) {
     (@nslog) = split(/\n/, $slog[$next]);

     print "<br><b>$slog[$idx]:</b> <select name=\"$slog[$idx]\">";

     foreach $line (@nslog) {
       print "<option value=\"$line\">$line</option>";
     }

     print "</select>";
  }
}