split /,/, $ENV{'Z' . uc $foo}, 2

##</code><code>##

( $x, $ENV{'Z' . uc $foo} ) = split /,/, $ENV{'Z' . uc $foo} . ",,", 2;