$ perl -MData::Dump -MAlgorithm::Combinatorics=derangements \
	-e 'dd derangements([ 2, 3, 4, 5 ])'
(
  [3, 2, 5, 4],
  [3, 4, 5, 2],
  [3, 5, 2, 4],
  [4, 2, 5, 3],
  [4, 5, 2, 3],
  [4, 5, 3, 2],
  [5, 2, 3, 4],
  [5, 4, 2, 3],
  [5, 4, 3, 2],
)