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