my @arr = split /,/, $ENV{'Z' . uc $foo}, 2;
  $x = shift @arr;
  $ENV{'Z' . uc $foo} = scalar @arr ? $arr[0] : '';   # set to empty string if nothing available