view release on metacpan or  search on metacpan

eg/colour_swatches.pl  view on Meta::CPAN

	}

	while ( @$s < $column_count ) {
		unshift( @$s, 0 );
	}

	# @$s is now a list corresponding to the permutation, where each number is
	# an index of the permutation set

	# Now we build the permutation by substituting those for the set
	return join '', map { $permutation_set->[$_] } @$s;
}