my @x = (4, 4, 2);
my @y; my $pref = 'XX';

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