##
1
121
12321
121
1
##
##
#!/usr/bin/perl
print 'Diamond size (1-9): ';
chomp($diamondSize = );
foreach $i(@i = (1..$diamondSize, reverse (1..$diamondSize-1))) {
print ' ' x ($diamondSize - $i), (@d ="1".."$i"), (reverse @d[0..$#d-1]), "\n";
}