my ($par,$whandicap) = &get_par_for_course;
foreach (@$par) {
....
}

foreach (@$whandicap) {
....
}

my ($par,$whandicap) = (@$par,@$whandicap)

sub get_par_for_course {
# --------------------------------------------------------
# lookup course and get par for each hole


&switch_to_courses;

my (%course) = &get_record2('1'); # always berkeley hills = #1


my (@par) = split (/:/, $course{'WPar'});
my (@whandicap) = split (/:/, $course{'WHandicap'});

return(\@par,\@whandicap);


}