my $line;
my ($dow,$mon,$day,$year,$num1,$num2,$num3,$dow2,$mon2,$day2,$year2) = "";
foreach $line (@array){
	($dow,$mon,$day,$year,$num1,$num2,$num3,$dow2,$mon2,$day2,$year2) = split /[,]/, $line; 
	print "$dow2\n";