use strict;
use warnings;

# Create a large hash
my %hash;
my $count = 3_000_000;
$hash{$count} = rand(10) while $count--;

# Undefine it
print "Undefining hash.\n";
undef %hash;
print "Done.\n";