regex - mehrmaliges vorkommen

[Boris]

Ich möchte alle möglichen permutationen eines arrays bilden, ohne dopplungen.
mein ansatz ist dabei:

@a = qw(A B C D E F G H);

foreach $stelle1 (@a){
foreach $stelle2 (@a){
foreach $stelle3 (@a){
foreach $stelle4 (@a){
foreach $stelle5 (@a){

$b[@b] = $stelle1.$stelle2.$stelle3.$stelle4.$stelle5;

}}}}}

in der mitte der verschachtelung würde ich gerne DIE $b auslassen, in denen irgendein buchstabe doppelt vorkommt.

ist mein ansatz falsch?

vielen dank euch beiden jedenfalls bis hierhin.