Derive a variable name from a variable?

mavericknik has asked for the wisdom of the Perl Monks concerning the following question:

Hello monks, So here is my question: I have an array of names, say

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

And for each name, I have a corresponding array,

my @adambooks;
my @jakebooks;
.
.
.
[download]

Now I'm trying to do:

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

What is the easiest way to get the value of "Their corresponding array"?? I expect the answer is simple buy I'm pretty new to perl and cant for the life of me figure it out. Any pointers are greatly appreciated!

Back to Seekers of Perl Wisdom