my @names = qw(adam jake john betty);

##</code><code>##

my @adambooks;
my @jakebooks;
.
.
.

##</code><code>##

foreach (@names) {
    my $cur_name = $_;
    &modify($cur_name, "Their correspinding array")
}