for $quellelement(@satz) #Immer erstes Element
  {
for $restelement(@satz) #alle anderen Elemente
  {
 if ($quellelement eq $restelement) #wenn gleich
 {
 push(@gleich,$quellelement); #Schreibe Quellelement in @gleich
 push(@gleich,$restelement);  #Schreibe alle anderen die mit dem aktuellen Quellelement identisch sind  in @gleich
 push(@ungleich,$quellelement);#Schreibe das Quellelement in @ungleich
 shift(@satz,$restelement);   #Lösche nun aus der Ursprungsliste das Quellelement
}                             #und die anderen gerade gefundenen identischen Elemente

 else
 {
 push(@ungleich,$quellelement); #Schreibe das Quellelement in @ungleich
                                #Lösche das Quellelement aus der Ursprungsliste
 }

}
}