Select Code to Download

#!/usr/lib/perl
use strict;
...
    shift @pool;
    push @pool, shift @indexes if @indexes;
}

Pool 3 4 sum: 5
Pool 4 6 sum: 11
Pool 6 7 sum: 29
Pool 7 8 sum: 26
Pool 8 11 sum: 51