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