#!/usr/bin/perl

use constant SLEEP => 20;

warn "Starting\n";

my @arr = (1..1_000_000);
warn "Allocated\n";

sleep(SLEEP);

undef @arr;
warn "Freed.\n";

sleep(SLEEP);