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