in reply to Re: recursively generating permutations
in thread recursively generating permutations

Mapifying the else block (untested): 
  else {
    return map {
      my @a = @$arr;
      my $e = splice @a, $_, 1;
      map [ $e, @$_ ], perms( \@a );
    } 0..$#$arr;
  }

[download]
Caution: Contents may have been coded under pressure.

In Section Seekers of Perl Wisdom