my @ranges = (
   [ 0 .. 2 ],
   [ 0 .. 2 ],
   [ 0 .. 2 ],
   [ 0 .. 2 ],
);

my $glob_string = join '\\ ', 
                  map { '{'.join(',', @$_).'}' }
                  @ranges;

my @results;
while (glob($glob_string)) {
   my $i = 0;
   push(@results, [ map { $ranges[$i++][$_] } split ]);
} 

print(join(' ', @$_), $/)
   foreach @results;