Select Code to Download

!/usr/bin/perl
use strict;
...
  @sets = map { my @prev = @$_; map [ @prev, $_ ], @$eacharray } @sets
+;
  }
use Data::Dump 'dd'; dd @sets;

!/usr/bin/perl
use strict;
...
[0..1]
[2..4]
[5..8]