#!/usr/bin/perl

print 'Diamond size (1-9): ';
chomp($diamondSize = <STDIN>);

foreach $i(@i = (1..$diamondSize, reverse (1..$diamondSize-1))) {
        print ' ' x ($diamondSize - $i), (@d ="1".."$i"), (reverse @d[0..$#d-1]),  "\n";
}