sub new {
  my ($class, @array) = @_;
  my $self = { array => \@array };
  bless $self, $class;
}