$ cat t.pl
#!/usr/bin/perl
use strict; use warnings;

my $n = <>;

print "Direct translation\n";
for (my $i=$n; $i > 0; $i--) {
    for (my $j=0; $j < $i; $j++) {
        print "*";
    }
    print "\n";
}