my %foo = 0..1000;
delete $foo{2*$_} for 1..500;
print scalar %foo; # prints "1/512"

my %bar = (0, 1);
print scalar %bar; # prints "1/8"