Select Code to Download

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

}

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

}

for my $x (1..$total_elements+1) {
    $varname = "fname_menu$x";
...
    ${NEW_PD$x}
EOF_HTML
}

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

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

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