#!perl/bin/perl 
use strict; 
use warnings;
$|=1;

my ($list1);
print "Making list1\n";
for (0 .. 93132) {
    my $head = $list1;
    $list1 = ["a" x 40,\$head];
}