The snippet below comes from an old menu based script I wrote when learning Perl, it offers a less sprawling approach, each menu option has an associated string and sub_name, you then call the sub with the same index as the "friendly" name.

@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);
[download]

UPDATE: Looking back on this, a generic menu sub should be implemented, to take a list

&menuSub($friendly_prompts_array_ref, $sub_routine_array_ref,$question
+)
[download]