for (my $i = 1; $i <= 2 ** $count; ++$i) {