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