Attempt to display all combinations of data set

combinations.pl

#!/usr/bin/perl

use strict;
use Data::Dumper;

my @b = (['a','b'],['c','d'],['e','f']);

my @all;
my @single;
&rec(0, \@all, \@single, @b);
print Dumper(@all);

# pass depth, reference to return array, reference to single storage array and data to recurse over
sub rec {
    my @data = @_;
    my $d = shift(@data);
    my $aP = shift(@data);
    my $sP = shift(@data);

    for(my $i=0;$i<@{$data[$d]};$i++) {
	$$sP[$d] = $data[$d][$i];
	if($d == $#data) {
	    push(@$aP, [@$sP]);
	}
	else {
	    &rec(($d+1), $aP, $sP, @data);
	}
    }
}