Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
        # replace above line with your code
    } while(  NextPermute(@choice)  );
}

Select or download this
```
1 2
2 1
...
5 3
4 5
5 4
```