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};
}

2 Elemente:
Sortiere 1 mal

4 Elemente:
Sortiere 4 mal

8 Elemente:
Sortiere 12 mal

16 Elemente:
Sortiere 32 mal

32 Elemente:
Sortiere 31 mal

64 Elemente:
Sortiere 63 mal

128 Elemente:
Sortiere 127 mal

256 Elemente:
Sortiere 255 mal

512 Elemente:
Sortiere 511 mal

1024 Elemente:
Sortiere 1023 mal