Thurs,July,5,2012,123,456,789
Thurs,July,5,2012,123,456,789,Fri,July,6,2012
##</code><code>##

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";