Perl 6 Syntax: while loop

loop $count = 1; $count < 10; $count++ {
  print "$count\n";
}