in reply to Is there a Perl5 module on CPAN that provides a function analogous to the Perl6 list-repeat operator?
~$ perl -e 'print join('x', (1)x5),"\n"' 1x1x1x1x1 [download]
See Multiplicative Operators.