You could install module Algorithm::Permute, then try this:

use Algorithm::Permute;

my $p = new Algorithm::Permute(['a'..'e']);
while (@res = $p->next) {
    print join(", ", @res), "\n";
}
[download]