my @sorted = sort { sprintf("%08d%s",99999999-$a,$a) cmp sprintf("%08d%s",99999999-$b,$b) } @array;