See Algorithm::Permute and Algorithm::Loops, then show us your code and explain where you encounter problems. This is not a homework solution site.