@a = permutations(@{ $test[2] });