#!C:/perl/bin/perl.exe
use CGI::Carp qw(fatalsToBrowser);
use CGI;
$query = new CGI;

print $query->header;
print $query->start_html(-title=>'foreach');




@array=("0th element", "1st element", "2nd element", "3rd element",);


foreach $key (@array){
	print "The value of \$key is <B>$key</B><BR>";
}



print $query->end_html;