Perl 5 Syntax: while loop

$count = 1;
while($count < 10) {
  print "$count\n";
  $count = $count + 1;
}