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

use strict;

use HashSub;

my @h;

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