use strict; 

my $total_elements = 8;
my $NEW_BUS_TXT;

my $NEW_BUS_TXT1 = 123;
my $NEW_BUS_TXT2 = 123;
my $NEW_BUS_TXT3 = 123;
my $NEW_BUS_TXT4 = 123;
my $NEW_BUS_TXT5 = 123;
my $NEW_BUS_TXT6 = 123;
my $NEW_BUS_TXT7 = 123;
my $NEW_BUS_TXT8 = 123;
my $NEW_BUS_TXT9 = 123;

my $NEW_PD1 = 123;
my $NEW_PD2 = 234;
my $NEW_PD3 = 345;
my $NEW_PD4 = 456;
my $NEW_PD5 = 567;
my $NEW_PD6 = 678;
my $NEW_PD7 = 789;
my $NEW_PD8 = 890;
my $NEW_PD9 = 901;

my $varname = '';

for (my $x=1; $x <= $total_elements +1; $x++)
{
        $varname .= "fname_menu$x";
        
        $NEW_BUS_TXT = eval "\$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>" . 

                eval "\$NEW_PD$x". "\n";

}

print $varname;