sub new { my $self = bless { array => [] }, shift; $self->{size} = shift || 30; $self; }