!/usr/bin/perl
use strict;
use warnings;
my @list = ([0..1], [2..4], [5..8]);
my @sets = [];
for my $eacharray (@list)
  {
  @sets = map { my @prev = @$_; map [ @prev, $_ ], @$eacharray } @sets;
  }
use Data::Dump 'dd'; dd @sets;