Help for this page
foreach $line (@lines) { ... }
foreach my $line (@lines) { ... }
for (my $i = 1; $i < 10; $i ++) { print $i; }