Help for this page
#!/usr/bin/perl -w use strict; ... # replace above line with your code } while( NextPermute(@choice) ); }
1 2 2 1 ... 5 3 4 5 5 4