my @a = $x;
push @a, @b for 1..$x;