Select Code to Download

use Modern::Perl;
use Data::Dumper;
...
    say "range: ", $a_range->[0], '..', $a_range->[-1];
}

$VAR1 = [
          [
...
range: 10..13
range: 20..22
range: 34..38