my $Big = 'X' x 1000000;
sub big {
    my $big = $Big;
    return sub { $big };
}
my @crefs;
push @crefs, big() for 1..10;