#!/usr/bin/perl

use strict;
use Data::PowerSet qw(powerset);

my @array = (
'0001.tif ', "\n",
'0002.tif ', "\n",
'0003.tif ', "\n",
'0004.tif ', "\n",
'0005.tif ', "\n",
'0006.tif ', "\n",   
'0007.tif ', "\n",    
'0008.tif ', "\n",   
'0009.tif ', "\n",
'0010.tif ', "\n");

my $powersetA  = powerset(
                grep ($_ % 4 == 1, @array));
for my $p(@$powersetA) {
    print @$p, "\n";
}

my $powersetB = powerset(
                grep ($_ %  4 == 2, @array));
for my $p(@$powersetB) {               
    print @$p, "\n";
}