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