RosettaCodeData/Task/Loops-While/Perl/loops-while-1.pl

my $n = 1024;
while($n){
    print "$n\n";
    $n = int $n / 2;
}
A-M baby 2013-04-10 21:29:02 -07:00			`my $n = 1024;`
June 2018 Update 2018-06-22 20:57:24 +00:00			`while($n){`
A-M baby 2013-04-10 21:29:02 -07:00			`print "$n\n";`
			`$n = int $n / 2;`
			`}`