RosettaCodeData/Task/Loops-Do-while/Perl/loops-do-while-1.pl

my $val = 0;
do {
   $val++;
   print "$val\n";
} while ($val % 6);