Select Code to Download

my @ranges = qw(1..4 5..8 9..12 13..16 1..8 9..16 )

my @ranges = ([1..4],[5..8],[9..12],[13..16],[1..8],[9..16]);
foreach my $range (@ranges) {
  foreach (@$range) {...