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

my ($list1,$list2);
print "Making list1\n";
for (0 .. 1_000_000) {
    my $head = $list1;
    $list1 = ["a" x 40,\$head];
}
print "Making list2\n";
for (0 .. 60_000) {
    my $head = $list2;
    $list2 = ["b" x 338,\$head];
}
print "Press enter to exit: ";

my $dummy = <STDIN>;