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