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