三角形作成(Perl)

三角形以下の様な三角形を作成せよ

*
**
***
****
*****

*****
****
***
**
*

    *
   **
  ***
 ****
*****

*****
 ****
  ***
   **
    *

    *
   ***
  *****
 *******
*********
 *******
  *****
   ***
    *

Perlで作成しました。

use strict;
use warnings;

my ($i,$j);

for(1 .. 5){
	for(1 .. 5){
		print "*";
	}
	print "\n";
}
print "\n";

for (1 .. 5){
	print "*" x $_;
	print "\n";
}
print "\n";

for ($i = 5;$i >= 0;$i--){
	print "*" x $i;
	print "\n";
}


$j = 1;
for ($i = 5;$i > 0;$i--){
	print " " x ($i - 1);
	print "*" x $j;
	$j++;
	print "\n";
}
print "\n";

$j = 0;
for ($i = 5;$i > 0;$i--){
	print " " x $j;
	print "*" x $i;
	$j++;
	print "\n";
}

print "\n";

$j = 1;
for ($i = 5;$i > 0;$i--){
	print " " x ($i - 1);
	print "*" x ($j * 2 - 1);
	$j++;
	print "\n";
}
$j = 1;
for ($i = 4;$i > 0;$i--){
	print " " x $j;
	print "*" x ($i * 2 - 1);
	$j++;
	print "\n";
}
print "\n";