@menu_array=("User Operations","Domain Operations","Exit this script");
@sub_array=qw(userMenu domainMenu sub_quit);
print "Which type of operation do you wish to perform";
for ($index=0;$index<$#menu_array;$index++){
   print "\n\t$index)$menu_array[$index]";
}
$index=&getReply;
$return_value=&{$sub_array[$index]};
return($return_value);

##</code><code>##

&menuSub($friendly_prompts_array_ref, $sub_routine_array_ref,$question)