mkdir("$dir", 0777) || die "Could not mkdir \"$dir\": $!\n"; #### ($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; }