my @arr = (%ENV); # Array-Cast
print @arr % 2;   # muss 0 ergeben