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";