my (undef, undef, $third) = split ",", $foo;

##</code><code>##

my $third = (split ",", $foo)[2];