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

for(my $x = 1; $x <= 5; $x++) {
  for(my $y = 1; $y <= $x; $y++) {
    print "*";
  }
  print "\n";
}