RosettaCodeData/Task/Loops-For/Perl/loops-for-3.pl

print ('*' x $_ . "\n") for 1..5;