Select Code to Download

sub process {
    my ( $choice, $book ) = @_;
...

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

BEGIN {
    open FH, 'my_db' or die "Cannot open my_db: $!";
    my @book = split /,/, <FH>;
    sub address_book { return \@book }
}