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