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