my @board = map{ [('.') x 15]  } 0..14 ;

print "Empty board:\n";

foreach my $row(@board){
	foreach my $col( @$row ){
		print $col;	
	}
	print "\n";
}

__DATA__

Empty board:
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............
...............