Join strings problem

[Luinrandir Hernsen]

Hallo and thank in advance.
what am I doing wrong? I'm new to Perl.
my Building string is not being built.
is it that I need to declare the joined strings a string?How?
Lou


#!/usr/local/bin/perl
print qq|Content-type: text/html\n\n|;

my $EW5NS5="TEST.gif"; ##this is the string I need to build.

print qq|<TABLE>\n|;
for ($row=0; $row<10; $row++)
    {
    print qq|<TR>\n|;
    for ($col=0; $col < 10; $col++)
          {
          ##build variable
          $Building=join("".EW.$row.NS.$col);
          print qq|<TD bgcolor=black>$Building</TD><TD></TD>\n|;
          }
    print qq|</TR>\n|;
    }
print qq|</TABLE>\n|;
print qq|x $EW5NS5 x <br>\n|;
print qq|x $Building x\n|;