open(SOURCE, "<", $filename) or die "Can't open $filename"; 
while(<SOURCE>){
	chomp(my $record = $_);
	my @field = split /\,/, $record; #split record into fields by commas
	print DATAOUT "$field[0],$field[10],$values[0],$field[1],$field[2]\n";
}