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