sub suffix3 {
	my @input = split //, $_[0];
	my $off = 0;
	my @array = sort { $off=0; until( ($input[$a+$off]//'') cmp ($input[$b+$off]//'') ) { $off++ } } 0..@input-1;
	$_++ for @array;
	return @array;
}