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

##</code><code>##

my @a = ( $x, map { @b } 1..$x );

##</code><code>##

my @a = ( $x, (@b) x $x );