foreach (@view_list){
  if ($first){
     print "<option value=\"$_\">  $_  \n";
     }
  else{
     print "<option value=\"$_\" selected>  $_  \n";
     $first=1;
     }