foreach (sort @list)
{
     my ($one, $nochop) = split(/\|/, $_);
     chomp($one);    # Remove any trailing linefeeds

     print "<option value='$one'>$one</option>";
}