You don't need all this sorting and all these arrays in your code.
my @d1s = sort { $b <=> $a } $d61 ;
my @d2s = sort { $b <=> $a } $d62 ;
my @d3s = sort { $b <=> $a } $d63 ;
my @d4s = sort { $b <=> $a } $d64 ;
my @all = sort { $b <=> $a } @d1s, @d2s, @d3s, @d4s ;
print "\n@all \n\n" ;
You can replace it with this which has the sum snippit someone else posted:
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";
You can even do this with less code put I was beat to the punch.