print "Yet more perlishiosness: use the for statement modifier\n";
for my $i (reverse 1 .. $n) {
    print "*" for 0 .. $i;;
    print "\n";
}