Perl 5 Syntax: foreach loop

foreach my $count (1..9) {
  print "$count\n";
}
foreach (1..9) {
  print "$_\n";
}