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

foreach (1..5) {
  foreach (1..$_) {
    print '*';
  }
  print "\n";
}