Select Code to Download

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