##
($menu eq 1) && addwant();
($menu eq 2) && addhave();
##
##
my @actions = qw( \&addwant \&addhave ); # and so forth
# get input
if (defined (my $action = $actions[$menu])) {
$action->();
} else {
print "\n\n\nGoodbye!\n";
exit;
}