#! perl
use strict;
use warnings;

use constant
{
    WIDTH  => 10,
    HEIGHT => 10,
    CHAR   => '.',
};

for (1 .. HEIGHT)
{
    print CHAR . ' ' for 1 .. WIDTH;
    print "\n";
}