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


in reply to asterisk pattern

say' 'x(3-$_),'*'x$_ for 1..3,2,1

In Section Seekers of Perl Wisdom