Select Code to Download

use strict;
use warnings;
...

my @p = @{ $best[0] };  print(sum(@p), ": ", join('+', @p), "\n");
my @q = @{ $best[1] };  print(sum(@q), ": ", join('+', @q), "\n");

>perl script.pl 8 14 32 29
40: 8+32
...
>perl script.pl 7 10 12 15 40
44: 7+10+12+15
40: 40