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