#or should it be 0..$total_elements??
for my $x (1..$total_elements+1) {

}

##</code><code>##

for ($x=1; $x <= $total_elements +1; $x++)
{$varname = "fname_menu$x";$NEW_BUS_TXT = ${"NEW_BUS_TXT$x"};

$$varname = " <table border='1' width='100%' bgcolor='#BBEEEE'> <tr>
<td width='100%'>
<B>($x.)Using the pull down menu Select a member</B>

${NEW_PD$x}

}

##</code><code>##

for my $x (1..$total_elements+1) {
	$varname = "fname_menu$x";
	$NEW_BUS_TXT = ${"NEW_BUS_TXT$x"};
	$$varname = <<"EOF_HTML";
<table border='1' width='100%' bgcolor='#BBEEEE'> 
	<tr>
		<td width='100%'>
			<B>($x.)Using the pull down menu Select a member</B>
	${NEW_PD$x}
EOF_HTML
}

##</code><code>##

my @fname_menu;
foreach $x (0..$last_elem) {
  $fname_menu[$x]="Some Value maybe even HTML";
}

##</code><code>##

print $fname_menu[$_] foreach 0..$#fname_menu;

##</code><code>##

my %hash;
$hash{demerphq}="JAPH";
$hash{cal}="JAPL";      # learner.. :-)
print $hash{cal}," ... ",$hash{demerphq};