Help for this page
1 1 2 ... 3 3 4 4
my @list = (1,2,3,4); my $n = 2**@list -1; ... 13: 1101 1 3 4 14: 1110 2 3 4 15: 1111 1 2 3 4