@names = qw/adam jake john betty/;
@adambooks = qw/ad_1 ad_2/;
@jakebooks = qw/ja_1 ja_2/;

for $n (@names){
print "$n:\n";
		print "\t@{$_}\n" for $n."books";	
}