$ perl -e " keys(%f)=7931; $f{1}=1; die scalar %f"
1/8192 at -e line 1.