@list = ($string) x $number;