#! /usr/local/test/bin/perl -w

use strict;

use ArraySub;

my @a;

my $obj;
for (my $i = 0; $i < 50000; $i++) {
    $obj = ArraySub->new(123);
    $obj->second(456);
    $obj->third(789);
    push @a, $obj;
}