perl -MClone=clone -le '%a=(chr 256 =>1);$c=clone \%a; print ord foreach keys %$c' 196