Wo liegt der Fehler

[Alex]

Hallo,
kann mir jemand helfen, irgendwo ist hier ein fehler drin. bin cgi neuling und vor zwei tagen erst angefangen.
$AnzahlArtikel ist "", warum???

vieln dank für eure hilfe

my $ArtikelStringAll = $data{'artikel'};
my $ArtikelSplit = split(/####/,$ArtikelStringAll);
my $AnzahlArtikel = length($ArtikelSplit);
print MAIL "Die Anzahl der Artikel lautet : $ArtikelAnzahl";
#my @ArtNr;

for(my $i=0; $i<$ArtikelAnzahl; $i++)
{
 #my $ArtikelString[$i] = substr($ArtikelSplit,$i,1);

#my $ArtikelDetails = split(/~/,$ArtikelString);

#my $ArtNr = substr($ArtikelDetails,1,1);
 #my $ArBez = substr($ArtikelDetails,2,1);
 #my $ArtGruppe = substr($ArtikelDetails,3,1);
 #my $ArtAnzahl = substr($ArtikelDetails,4,1);
 #my $ArtPreis = substr($ArtikelDetails,5,1);
 #my $ArtInfo = substr($ArtikelDetails,6,1);

print MAIL "<table width="100%" border="0">";
.
.
.
print MAIL "</table>";
print MAIL "\n";

}