my $number = 4;
my $string = 'hello';
my @list   = ($string) x $number;

print @list;

__output__

hellohellohellohello