my @d1s = sort { $b <=> $a } $d61 ;