Select Code to Download

use Modern::Perl;
use Algorithm::Combinatorics qw /variations_with_repetition/;
use List::Util qw /sum/;
...

say "$_ = $results[$_]" for 0 .. 80;

0 = 0 + 0 + 0
1 = 1 + 0 + 0
2 = 1 + 1 + 0
...
78 = 78 + 0 + 0
79 = 78 + 1 + 0
80 = 78 + 1 + 1