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

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