Ich fange gerade mit Perl an und versuche den Inhalt eines Arrays zu sortieren. Das klappt meistens auch, nur manchmal stimmen die letzten Stellen komischerweise nicht.
Ich weiß, dass es dafür eine Funktion gibt, aber ich möchte gerne wissen, wo bei mir der Fehler liegt.

Code:
#!/usr/bin/perl5.8.8

@array=();
for ($s=0; $s<50; $s++)
{
	@array[$s]=(int rand(10));
}


$acount=@array;
$temp=0;
$vergleichswert1=0;
$vergleichswert2=0;

print "@array\n";

for ($i=0; $i<$acount; $i++)
{	
	for ($i2=0; $i2<$acount; $i2++)
	{		
		if ($array[$vergleichswert1] >= $array[$vergleichswert2])
		{
			$vergleichswert2++;
		}
		else
		{
			$temp=$array[$vergleichswert2];
			$array[$vergleichswert2]=$array[$vergleichswert1];
			$array[$vergleichswert1]=$temp;
			$temp=0;
		}
	}
	$vergleichswert1++;
	$vergleichswert2=0;
}
print "@array\n";
Danke schon mal im voraus

Added after 23 hours 58 minutes:

Hat keiner eine Idee ?