@array3=sort({$b/5 <=> $a/5}@array);