#!/usr/bin/perl

# for 1
print "for example 1:\n";

for($count = 1; $count < 10; $count++)
{

  print "$count\n";

}

print "\n";

# foreach 1
print "foreach example 1:\n";

@array = ('Larry', 'Randal', 'Tom', 'Doug');

foreach $name (@array)
{

  print "$name\n";

}

print "\n";

# for 2
print "for example 2:\n";

for $name (@array)
{

  print "$name\n";

}

print "\n";

# foreach 2
print "foreach example 2:\n";

foreach (1..10)
{

  print "$_\n";

}

print "\n";