my $dispatch = {
    1   => sub { return search_menu($current_user) },
    2   => sub { return edit_name($book) },
    3   => sub { return add_entry($book) },
    4   => sub { return delete_entry($book) },
    5   => sub { return save_default($current_user) },
    6   => \sub{ print "Goodbye!\n"; die; },
    e   => \sub{ print "Goodbye!\n"; die; },
};

&{ $dispatch->{ $choice } };