in reply to Custom Sort An AoA

decoreate with  [ sprintf '%06d %s', scalar(@$_), something(@$_) ] where something is whatever you mean by ascending asciibetical, maybe simply join

In Section Seekers of Perl Wisdom