my @a = (1, 2, 3, 10);
		my @numerisch = sort {$a <=> $b} (@a);
		my @alphabetisch = sort {$a cmp $b} (@a);
		print "Numerisch: ", join(',', @numerisch), "\n";
		print "Alphabetisch: ", join(',', @alphabetisch), "\n";
		
		> Numerisch: 1,2,3,10
		> Alphabetisch: 1,10,2,3