Perl Weekly Challenge 359‘s tasks are “Digital Root” and “String Reduction”, but the entire time I was writing these solutions all I heard in my head was Chuck Mangione’s Give It All You Got. ¹