Dynamic check boxes from two arrays

From: Blnukem (Blnukem_at_hotmail.com)
Date: 11/30/03 

Date: Sun, 30 Nov 2003 11:05:41 GMT

Hi All
Could someone please look at this and tell me why I cant get it to work
please.

#!/usr/bin/perl

print "Content-type: text/html\n\n";

my @DaysPlayedCheckBox;

my @GamingDays = qw(Sun Mon Tue Wed Thur Fri Sat);
my @DaysPlayerPlays = qw(Mon Tue Wed Sat);

my $Count = 0;
foreach my $DaysPlayed (@GamingDays) {

if ($DaysPlayed eq $DaysPlayerPlays[$Count]){
$xdata = "<input type=\"checkbox\" name=\"$DaysPlayed\"
value=\"$DaysPlayed\" checked>$DaysPlayed";
}else{
$xdata = "<input type=\"checkbox\" name=\"$DaysPlayed\"
value=\"$DaysPlayed\">$DaysPlayed";
}
push (@DaysPlayedCheckBox, $xdata);
$Count ++;
}

print @DaysPlayedCheckBox;

Thanks in adavnce
Blnukem