সম্পাদনা
my $number = 1; while ($number <= 10) { print "নাম্বার: $number\n"; $number++; }
পূর্বরূপ