http://www.perlmonks.org?node_id=1025488


in reply to HOW CAN WE MAKE A TRIANGLE LIKE THIS IN PERL

my $size = 4;
printf "%s\n", '*' x $_
    for reverse 1..$size;

[download]

In Section Seekers of Perl Wisdom