my @name_menu;
for (0..$elements) {
    splice(
        @name_menu,
        $_,
        0,
        qq{
<select size="1" name="M$_">
$fname
<option>GUEST</option>
<option selected>Select a member</option>
</select>
}
    )
}

##</code><code>##

my %name_menu;
for (0..$elements) {
    $name_menu{$_} = qq{
<select size="1" name="M$_">
$fname
<option>GUEST</option>
<option selected>Select a member</option>
</select>
};
}