Idx => '@pre = map {substr $_, 81} @array;
            @::d = @array[sort {$pre[$a] <=> $pre[$b]} 0..$#array]',