for(my $n = 1024; $n > 0; $n >>= 1){
    print "$n\n";
}