print do{my @temp=split /,/,$foo; $temp[2]},"\n";