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