#!/usr/bin/perl
use strict;
# case 1: array uses a lot of memory, and goes out of scope
$0 = "highmemusage_going_out_of_scope";
{
 my @aap = map { $_ * $_ } ( 0 .. 100000 );
}
sleep 300;