sub new {
  my($package) = shift;
  my(@arr)     = shift;
  my($self)    = {};

  bless($self, $package);

  $self->{array} = @arr;

  return($self);
}