$x = 4;
@b = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11);

$a[0] = $x;
push @a, @b for 1..$x;
push @a, 0 while $#a < 48;

print "@a";