#!/usr/bin/perl
use strict;
use warnings;

my $x=7;
my $y=10;

# kurze variante:
#my @array=map{[map{'W'}(1..$y)]}(1..$x);

# auführlicher:
my @array;
for my $px (0..$x-1)
{
  for my $py (0..$y-1)
  {
    $array[$px][$py]='W';
  }
}

# hüpsche Ausgabe
printf("     %s\n   +-%s\n", join('',map{sprintf("%02u ",$_)}(1..$y)),'---'x$y);
printf("%02u | %s\n   |\n", $_+1, join('',map{sprintf("% 2s ",$_)}@{$array[$_]}) ) for(0..$#array);