$sub3 = sort { $b <=> $a } $sub3;