my %liste;
my $count = 0;
for (my $elemente = 2; $elemente < 2000; $elemente = $elemente * 2) {
        %liste = ();
	for (my $anz = 1; $anz <= $elemente; $anz ++) {
		$liste{$anz} = 'test';
	}
	print "\n\n$elemente Elemente:\n";
	$count = 0;
	foreach my $anz (sort {&sort_tab (\%liste)} keys %liste) {
	}
}
sub sort_tab {
	my %liste = %{$_[0]};
	$count ++;
	print "\rSortiere $count mal";
	$liste{$a} cmp $liste{$b};
}