my @groups=(
[qw( yes no 0 )],
[qw( yes all 0 )],
[qw( all stop 0 )],
[qw( 1 0 )],
[qw( 1 0 )],	);		
my @names=('rscode','nonsyn','aac','splice','var');
my $fixed_size=scalar(@names);	
my ($combo,$count)= create_combo($fixed_size,\@groups);	

sub create_combo 
{
	my @array;
	my $count=0;
	my $fixed_size= $_[0];
	my $groups=$_[1];
	for my $fixed_size_groups ( combine( $fixed_size, @{$groups} ) ) 
    {	Algorithm::Loops::NestedLoops $fixed_size_groups, 
		sub {
			push @array,@_;	
			print "@_\n";
			$count++;
		   };
  return (\@array,$count);
  }

	
}


##</code><code>##

1 all 1 yes yes
1 all 1 yes all
1 all 1 yes 0
....