Needs help in looping and to remove duplication

Needs help in looping and to remove duplication

helo everybody, I developed a code to search "-" and "/" and then to
compare and arrange them .. But unfortunatly, it only works for two
strings to compare and if more than two strings compared by loop, it gives
redundent data .. Help me, Thankx in anticipation ..
for($x=1, $y = 2; $x<$arrlength, $y<$arrlength; $x++, $y++) {
switch ($sort[$x])
{
case (strncasecmp($sort[$x],$sort[$y],strpos($sort[$x],'-')) == 0):
if
(substr(substr($sort[$x],0,strpos($sort[$y],'/')),0,strpos($sort[$y],'-'))
== false ){
echo " <TH class=\"tr1 td26\"><table><caption><P class=\"p16
ft4\">".substr($sort[$y],0,strpos($sort[$x],'-'))."</P></caption></table>";
echo "<P class=\"p12
ft4\">".ltrim(substr($sort[$x],strpos($sort[$x],'-')),"-")."</p></TH>";
echo " <TH class=\"tr1 td26\"><P class=\"p12
ft4\">".ltrim(substr($sort[$y],strpos($sort[$y],'-')),"-")."</P></TH>";
}
else {
echo " <TH class=\"tr1 td26\">";
echo " <table><caption><u><P class=\"p16
ft4\">".rtrim(rtrim((ltrim(substr(substr($sort[$x],strpos(strpos($sort[$x],'-'),'/')),strpos($sort[$x],'/')),"/")),ltrim(substr($sort[$x],strpos($sort[$x],'-')),"-")),"-")."</p><u></caption></table>";
echo "<P class=\"p12
ft4\">".ltrim(substr($sort[$x],strpos($sort[$x],'-')),"-")."</p></TH>";
echo " <TH class=\"tr1 td26\"><P class=\"p12
ft4\">".ltrim(substr($sort[$y],strpos($sort[$y],'-')),"-")."</P></TH>";
}
break;
case (strncasecmp($sort[$x],$sort[$y],strpos($sort[$x],'-')) <= 0):
echo " <TH class=\"tr1 td26\"><P class=\"p12
ft4\">".$sort[$x]."</P></TH>";
break;
case ((strncasecmp($sort[$x],$sort[$y],strpos($sort[$x],'/')) == 0) &&
(substr(substr($sort[$y],0,strpos($sort[$y],'/')),0,strpos($sort[$y],'-'))
!== false )) :
echo " <P class=\"p17
ft4\">".substr($sort[$y],0,strpos($sort[$x],'/'))."</P>";
break;
}
}