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