UPDATE: instead of deeply nesting SQL result sets and then using modules like Data::DPath, Data::Path, Data::Diver to grok the results in nested Perl loops, I need to learn to force the database to run loops for me by using labeled CASE statements!