Here's a version you can add to Algorithm::Loops. It uses NestedLoops and is comparatively efficient about skipping invalid combinations. It also puts its results in numeric/lexicographic order and handles duplicates. The commented-out code is for watching/debugging the management of the "pool" of available numbers. 
use strict;
use warnings;

use Algorithm::Loops 'NestedLoops';

sub derange {
  # Generate the list of possible values at each position
  # Skip a value if it's already used up (no more in the pool) or is i
+n its original position
  my %pool;
  ++$pool{$_} for (@_);
  my @orig = @_;
  no warnings 'numeric';
  my @values = sort {$a <=> $b or $a cmp $b} keys %pool;
  my @prev_values;
  NestedLoops(
    [(sub {
        # Generate all candidate values for this position
# print "Generating with \@_ = @_\n";
        my $pos = @_;
        # Update the pool: the last value on @_ has just changed, so
        # return the previous value(s) to the pool and remove the new
        # one.
        if (@_) {
          for (grep {defined $prev_values[$_]} $#_..$#orig-1) {
#print "Returning $prev_values[$_] to the pool\n";
            ++$pool{$prev_values[$_]};
            undef $prev_values[$_];
          }
#print "Removing $_[-1] from the pool\n";
          --$pool{$_[-1]};
#print "Valid values in the pool:\n";
#while (my ($k,$v) = each %pool) {
#  print "$k: $v\n" if $v;
#}
          $prev_values[$#_] = $_[-1]; 
        }
        [ grep {$orig[$pos] ne $_ and $pool{$_} > 0} @values ]
      }) x @orig]
  );
}

my @results;
my $iter = derange(@ARGV);
print "@results\n" while @results = $iter->();

[download]
As a possibly interesting note: if you simply remove $orig[$pos] ne $_ and, it becomes a permutations generator. But derange is not simply a permutations generator that filters out individual invalid permutations; it prunes entire sub-trees. (Similarly, the permutation generator doesn't loop through the whole cartesian space and filter it.)
Caution: Contents may have been coded under pressure.

In reply to Re^5: Derangements iterator (NestedLoops implementation) by Roy Johnson
in thread Derangements iterator by tye

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.