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