Perl Syntax: foreach loop
foreach my $count (1..9) { print "$count\n"; }
Or:
foreach (1..9) { print "$_\n"; }