#! c:/perl/bin/perl.exe
use CGI;
$query = new CGI;

#chpt 7 pg 6

print $query->header;
print $query->start_html (-title=>'For-Next Example');

@names= ("Bumpy Molasses","Spappy McNivens","Winslow Pentiballo");

print "The first name is $names[0].<br>";
print "The second name is $names[1].<br>";
print "The third name is $names[2].<br><br><br>";

for ($i = 0; $i <= 2; ++$i){
   print "The index value is currently equal to $i.<br>";
   print "The name corresponding to this index value is $names[$i].
<br>
<br>";
}

print $query->end_html;