print "A bit more perlish: convert C-style for loops\n"
.     "into perl style for loops\n";
for my $i (reverse 1 .. $n) {
    for my $j (0 .. $i) {
        print "*";
    }
    print "\n";
}