Select Code to Download

my @d1s = sort { $b <=> $a } $d61 ;
my @d2s = sort { $b <=> $a } $d62 ;
...
my @d4s = sort { $b <=> $a } $d64 ;
my @all = sort { $b <=> $a } @d1s, @d2s, @d3s, @d4s ;
print "\n@all \n\n" ;

  my @all = sort { $b <=> $a } $d61, $d62, $d63, $d64;
  use List::Util qw(sum);
  my $sum = sum( @all[0 .. $#all-1] );
  print "@all $sum\n";