Select Code to Download

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

my @adambooks;
my @jakebooks;
.
.
.

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