Select Code to Download

my @x = (4, 4, 2);
my @y; my $pref = 'XX';
...
  my $loc = sprintf("$pref%02d:", $chunk);
  push @y, map {$loc . $_} ( 1 .. $x[$chunk-1] );
}

@y = qw(XX01:1 XX01:2 XX01:3 XX01:4 XX02:1 XX02:2 XX02:3
        XX02:4 XX03:1 XX03:2);