for my $x (1..$total_elements+1) { $varname = "fname_menu$x"; $NEW_BUS_TXT = ${"NEW_BUS_TXT$x"}; $$varname = <<"EOF_HTML";
($x.)Using the pull down menu Select a member ${NEW_PD$x} EOF_HTML }