DB<93> $x=0; @list=a..d

  DB<94> x sort { $x++; ($a.=$x) cmp ($b.=$x) } @list
0  'a13'
1  'b14'
2  'c234'
3  'd2'
  DB<95> x @list
0  'a13'
1  'b14'
2  'c234'
3  'd2'
  DB<96>