my $n = 1024;
while($n){
    print "$n\n";
    $n = int $n / 2;
}