#!/usr/local/bin/perl -w
use strict;

while (1) {

    my @arr = 'x' x 1000000;

    my $subref = sub {
        @arr;
    }
}