undef $foo{ $_ } for 1 .. 1_000_000;