my @actions = qw( \&addwant \&addhave ); # and so forth

# get input

if (defined (my $action = $actions[$menu])) {
	$action->();
} else {
	print "\n\n\nGoodbye!\n";
	exit;
}