sub search
{
    my ($course_number, $courses_ref, $total) = @_;

    print $total . " + " . $course_number . " = " . ($total + $course_number) . "\n";

    my @courses = @{$courses_ref};

    if($course_number == 0) {
	return $total;
    } else {
	print max(search($courses[$course_number]->{follow_up_one}, $courses_ref, $total + $course_number),
                  search($courses[$course_number]->{follow_up_two}, $courses_ref, $total + $course_number));
    }
}