Perl 5 Syntax: for loop

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