Help for this page
split /,/, $ENV{'Z' . uc $foo}, 2
( $x, $ENV{'Z' . uc $foo} ) = split /,/, $ENV{'Z' . uc $foo} . ",,", 2 +;