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