print "blah\n";
length ...;
push @a, ...;
my $obj = Package->new;