%h_delete = %h_list = %h_undef = (0 .. 50000);

delete @h_delete{keys %h_delete};
%h_list = ();
undef %h_undef;

use Devel::Peek;

Dump \%h_delete;
Dump \%h_list;
Dump \%h_undef;