sort { $b <=> $a || $a cmp $b } @data;